tests/testthat/shinytest/css_class/tests/css_classTest.R

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

app$setInputs(add = "click")
app$snapshot()
app$setInputs(remove = "click")
app$snapshot()
app$setInputs(toggle = "click")
app$snapshot()
app$setInputs(toggle_cond = "click")
app$snapshot()
daqana/dqshiny documentation built on Sept. 1, 2020, 4:31 p.m.