tests/testthat/shinytest/state/tests/stateTest.R

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

app$setInputs(btn_disable = "click")
app$snapshot()
app$setInputs(btn_enable = "click")
app$snapshot()
app$setInputs(btn_toggle = "click")
app$snapshot()
app$setInputs(condition = TRUE)
app$setInputs(btn_toggle_cond = "click")
app$setInputs(btn_toggle_all = "click")
app$snapshot()

Try the dqshiny package in your browser

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

dqshiny documentation built on May 2, 2019, 1:43 p.m.