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()
daqana/dqshiny documentation built on Sept. 1, 2020, 4:31 p.m.