crrry

The goal of crrry is to provide some recipes around {crrri} for manipulating shiny applications from the command line.

Installation

You can install the development version of {crrry} from GitHub with:

# install.packages("remotes")
remotes::install_github("ColinFay/crrry")

Starting example

Generate a chrome object connection to a specific app (here, online).

# install.packages("pagedown")
# install.packages("httpuv")
test <- crrry::CrrryOnPage$new(
  chrome_bin = pagedown::find_chrome(),
  chrome_port = httpuv::randomPort(),
  url = "https://connect.thinkr.fr/prenoms/",
  inspect = FALSE,
  headless = FALSE
)
#> Running '/Applications/Google Chrome.app/Contents/MacOS/Google Chrome' \
#>   --no-first-run --new-window \
#>   '--user-data-dir=/Users/colin/Library/Application Support/r-crrri/chrome-data-dir-ocryfape' \
#>   '--remote-debugging-port=37498'

Block the process until shiny is ready to continue:

test$wait_for_shiny_ready()
#> Shiny is computing
#> ✓ Shiny is still running

You can send random JavaScript:

test$call_js(
      '$("#mod_popuui-dep").click()'
    )
#> ── Launching JS: $("#mod_popuui-dep"
#> Shiny is computing
#> ✓ Shiny is still running

Set the value of a shiny input

Note that this doesn’t change the front, only the backend. You won’t see the input change with this one, but the reactivity linked to this input changes.

test$shiny_set_input(
    "mod_popuui-depchoice", 
    "59"
  )
#> ── Setting id mod_popuui-depchoice w
#> Shiny is computing
#> ✓ Shiny is still running

Wait for a condition to be true:

test$wait_for('$("#mod_popuui-depchoice").text() == "01"')
#> Waiting for cond
#> ✓ Shiny is still running

Send some gremlins:

test$gremlins_horde()
#> ── Sending hordes of gremlins ──────
#> Shiny is computing
#> ✓ Shiny is still running

Stop the process:

test$stop()

Use on a local app

test <- crrry::CrrryProc$new(
  chrome_bin = pagedown::find_chrome(),
  chrome_port = 6697L,
  fun = "hexmake::run_app()",
  inspect = FALSE,
  headless = FALSE
)
#> Running '/Applications/Google Chrome.app/Contents/MacOS/Google Chrome' \
#>   --no-first-run --new-window \
#>   '--user-data-dir=/Users/colin/Library/Application Support/r-crrri/chrome-data-dir-xsdplzhe' \
#>   '--remote-debugging-port=6697'

test$stop()

Perform a load test

In combination with {dockerstats}

system("docker run -p 2708:80 --rm --name hexmake colinfay/hexmake", wait = FALSE, ignore.stdout = TRUE)
Sys.sleep(5)
library(dockerstats)

unlink("inst/dockerstats.csv")

tests <- list()

n_users <- 4

append_csv <- function(
  message,
  i
){
  readr::write_csv(
    append = TRUE,
    dockerstats::dockerstats("hexmake", extra = sprintf(
      "%s - %s", message, i
    )),
    "inst/dockerstats.csv"
  )
}


for (i in 1:n_users){
  cli::cat_rule(as.character(i))
  tests[[i]] <- crrry::CrrryOnPage$new(
    chrome_bin = pagedown::find_chrome(),
    chrome_port = httpuv::randomPort(),
    url = "http://localhost:2708",
    inspect = FALSE,
    headless = TRUE
  )
  append_csv( "Connection", i)
}
#> ── 1 ───────────────────────────────
#> Running '/Applications/Google Chrome.app/Contents/MacOS/Google Chrome' \
#>   --no-first-run --headless \
#>   '--user-data-dir=/Users/colin/Library/Application Support/r-crrri/chrome-data-dir-jergkdrp' \
#>   '--remote-debugging-port=32196'
#> ── 2 ───────────────────────────────
#> Running '/Applications/Google Chrome.app/Contents/MacOS/Google Chrome' \
#>   --no-first-run --headless \
#>   '--user-data-dir=/Users/colin/Library/Application Support/r-crrri/chrome-data-dir-ljxmdhts' \
#>   '--remote-debugging-port=5861'
#> ── 3 ───────────────────────────────
#> Running '/Applications/Google Chrome.app/Contents/MacOS/Google Chrome' \
#>   --no-first-run --headless \
#>   '--user-data-dir=/Users/colin/Library/Application Support/r-crrri/chrome-data-dir-ukoajmnh' \
#>   '--remote-debugging-port=25424'
#> ── 4 ───────────────────────────────
#> Running '/Applications/Google Chrome.app/Contents/MacOS/Google Chrome' \
#>   --no-first-run --headless \
#>   '--user-data-dir=/Users/colin/Library/Application Support/r-crrri/chrome-data-dir-gmynidqb' \
#>   '--remote-debugging-port=48466'

for (i in 1:n_users){
  Sys.sleep(0.5)
  cli::cat_rule(as.character(i))
  tests[[i]]$call_js('$("summary:contains(\'Name\')").click()')
  append_csv( "Clicking on Name", i)
}
#> ── 1 ───────────────────────────────
#> ── Launching JS: $("summary:contains
#> Shiny is computing
#> ✓ Shiny is still running
#> ── 2 ───────────────────────────────
#> ── Launching JS: $("summary:contains
#> Shiny is computing
#> ✓ Shiny is still running
#> ── 3 ───────────────────────────────
#> ── Launching JS: $("summary:contains
#> Shiny is computing
#> ✓ Shiny is still running
#> ── 4 ───────────────────────────────
#> ── Launching JS: $("summary:contains
#> Shiny is computing
#> ✓ Shiny is still running

for (i in 1:n_users){
  Sys.sleep(0.5)
  cli::cat_rule(as.character(i))
  tests[[i]]$shiny_set_input(
    "main_ui_1-left_ui_1-pkg_name_ui_1-package", 
    "pouet"
  )
  append_csv( "Changin pkg name", i)
}
#> ── 1 ───────────────────────────────
#> ── Setting id main_ui_1-left_ui_1-pk
#> Shiny is computing
#> ✓ Shiny is still running
#> ── 2 ───────────────────────────────
#> ── Setting id main_ui_1-left_ui_1-pk
#> Shiny is computing
#> ✓ Shiny is still running
#> ── 3 ───────────────────────────────
#> ── Setting id main_ui_1-left_ui_1-pk
#> Shiny is computing
#> ✓ Shiny is still running
#> ── 4 ───────────────────────────────
#> ── Setting id main_ui_1-left_ui_1-pk
#> Shiny is computing
#> ✓ Shiny is still running

for (i in 1:n_users){
  Sys.sleep(0.5)
  cli::cat_rule(as.character(i))
  tests[[i]]$gremlins_horde()
  Sys.sleep(5)
  append_csv( "gremlins", i)
}
#> ── 1 ───────────────────────────────
#> ── Sending hordes of gremlins ──────
#> Shiny is computing
#> ✓ Shiny is still running
#> ── 2 ───────────────────────────────
#> ── Sending hordes of gremlins ──────
#> Shiny is computing
#> ✓ Shiny is still running
#> ── 3 ───────────────────────────────
#> ── Sending hordes of gremlins ──────
#> Shiny is computing
#> ✓ Shiny is still running
#> ── 4 ───────────────────────────────
#> ── Sending hordes of gremlins ──────
#> Shiny is computing
#> ✓ Shiny is still running

for (i in 1:n_users){
  Sys.sleep(0.5)
  cli::cat_rule(as.character(i))
  tests[[i]]$stop()
}
#> ── 1 ───────────────────────────────
#> ── 2 ───────────────────────────────
#> ── 3 ───────────────────────────────
#> ── 4 ───────────────────────────────
system("docker kill hexmake")

Analyse results

df <- readr::read_csv(
  "inst/dockerstats.csv", 
  col_names = names(dockerstats::dockerstats())
  )
#> Parsed with column specification:
#> cols(
#>   Container = col_character(),
#>   Name = col_character(),
#>   ID = col_character(),
#>   CPUPerc = col_double(),
#>   MemUsage = col_character(),
#>   MemLimit = col_character(),
#>   MemPerc = col_double(),
#>   NetI = col_character(),
#>   NetO = col_character(),
#>   BlockI = col_character(),
#>   BlockO = col_character(),
#>   PIDs = col_double(),
#>   record_time = col_datetime(format = ""),
#>   extra = col_character()
#> )
df$MemUsage <- fs::as_fs_bytes(
  df$MemUsage
)
library(ggplot2)
ggplot() + 
  geom_line(data = df, aes(x = record_time, y = MemUsage)) + 
  scale_y_continuous(labels = scales::label_bytes())

statnmap/crrry

crrry

Installation

Starting example

Use on a local app

Perform a load test