tests/testthat/boxesApp/tests/tabsApp.R

app <- ShinyDriver$new("../", seed = 42)
app$snapshotInit("tabsApp")

app$setInputs(sidebar = "Text")
app$snapshot()
app$setInputs(sidebar = "Plot")
app$snapshot()
app$setInputs(title = "Test")
app$snapshot()
mYstar/easyshiny documentation built on June 21, 2019, 10:37 a.m.