tests/testthat/recorded_tests/041-dynamic-ui/tests/shinytest/mytest.R

app <- ShinyDriver$new("../../")
app$snapshotInit("mytest")

app$snapshot()
app$setInputs(dynamic = 17)
app$snapshot()
app$setInputs(input_type = "checkbox")
app$snapshot()
app$setInputs(dynamic = FALSE)
app$snapshot()
app$setInputs(input_type = "selectInput")
app$snapshot()
app$setInputs(dynamic = "option1")
app$snapshot()

Try the shinytest package in your browser

Any scripts or data that you put into this service are public.

shinytest documentation built on March 31, 2023, 11:09 p.m.