tests/testthat/elementsApp/tests/elementsApp.R

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

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