https://github.com/ColinFay/crrry
'crrri' recipes for 'shiny'
https://github.com/ColinFay/crrry
Last synced: 3 months ago
JSON representation
'crrri' recipes for 'shiny'
- Host: GitHub
- URL: https://github.com/ColinFay/crrry
- Owner: ColinFay
- License: other
- Created: 2019-10-10T13:46:54.000Z (over 5 years ago)
- Default Branch: master
- Last Pushed: 2020-10-14T07:11:08.000Z (over 4 years ago)
- Last Synced: 2024-12-01T00:07:59.724Z (3 months ago)
- Language: R
- Size: 11.1 MB
- Stars: 28
- Watchers: 7
- Forks: 3
- Open Issues: 6
-
Metadata Files:
- Readme: README.Rmd
- License: LICENSE
Awesome Lists containing this project
- jimsghstars - ColinFay/crrry - 'crrri' recipes for 'shiny' (R)
README
---
output: github_document
---
```{r remedy01, include = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.path = "man/figures/README-",
out.width = "100%",
eval = TRUE,
cache = FALSE
)
```
# crrry
The goal of crrry is to provide some recipes around [`{crrri}`](https://github.com/RLesur/crrri) for manipulating shiny applications from the command line.
## Installation
You can install the development version of `{crrry}` from [GitHub](https://github.com/) with:
``` r
# install.packages("remotes")
remotes::install_github("ColinFay/crrry")
```
## Starting example
Generate a chrome object connection to a specific app (here, online).
(Note: the `randomPort()` function requires httpuv >= 1.5.2)
```{r remedy02}
# 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/",
headless = TRUE
)
```
Block the process until shiny is ready to continue:
```{r remedy03}
test$wait_for_shiny_ready()
```
You can send random JavaScript:
```{r remedy045}
test$call_js(
'$("#mod_popuui-dep").click()'
)
```
`call_js()` returns its value invisibly, but it can be assigned:
```{r remedy04}
res <- test$call_js(
'$("#mod_popuui-choix").attr("value")'
)
res
```
Set the value of a shiny input
```{r remedy05}
test$shiny_set_input(
"mod_popuui-depchoice",
"59"
)
```
> 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.
Wait for a condition to be true:
```{r remedy06}
test$wait_for('$("#mod_popuui-depchoice").text() == "01"')
```
Send some gremlins:
```{r remedy11}
test$gremlins_horde()
```
Stop the process:
```{r remedy07}
test$stop()
```
## Use on a local app
```{r remedy08}
test <- crrry::CrrryProc$new(
# find the chrome binary
chrome_bin = pagedown::find_chrome(),
# Set chrome on a random port
chrome_port = httpuv::randomPort(),
# Set shiny on a random port
shiny_port = httpuv::randomPort(),
# The code to launch the shiny app
fun = "hexmake::run_app()",
# optional code to launch before `fun`
pre_launch_cmd = "whereami::set_whereami_log('~/Desktop')",
# Should Chrome be launched headless?
headless = FALSE
)
```
To get the output of the process, run `$stdout()` and `$stderr()`
```{r}
test$wait_for_shiny_ready()
test$stderr()
test$stdout()
```
```{r}
jsonlite::fromJSON("~/Desktop/whereami.json")
```
```{r remedy09}
test$stop()
```
## Perform a load test
In combination with `{dockerstats}`
```{r remedy10}
system("docker run -p 2708:80 --rm --name hexmake colinfay/hexmake", wait = FALSE)
Sys.sleep(5)
library(dockerstats)
unlink("inst/dockerstatsss.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/dockerstatsss.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",
headless = FALSE
)
append_csv( "Connection", i)
}
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)
}
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)
}
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)
}
for (i in 1:n_users){
Sys.sleep(0.5)
cli::cat_rule(as.character(i))
tests[[i]]$stop()
}
system("docker kill hexmake")
```
Analyse results
```{r README-1}
df <- readr::read_csv(
"inst/dockerstatsss.csv",
col_names = names(dockerstats::dockerstats())
)
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())
```