inst/ps50sr-dashboard/tests/shinytest/mytest.R

app <- ShinyDriver$new("../../", seed = 123)
app$snapshotInit("mytest")

app$snapshot()
app$setInputs(sidebarCollapsed = FALSE)
app$setInputs(tabs = "rates")
app$snapshot()
app$setInputs(tabs = "arrests")
app$snapshot()
app$setInputs(tabs = "crime")
app$snapshot()
cjcallag/ps50sr documentation built on Dec. 19, 2021, 5:11 p.m.