tests/testthat/recorded_tests/rmd/tests/mytest.R

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

app$setInputs(n_breaks = "20")
app$setInputs(bw_adjust = 1)
app$snapshot()
app$setInputs(n_breaks = "35")
app$setInputs(bw_adjust = 1.8)
app$snapshot()
MangoTheCat/shinytest documentation built on April 20, 2019, 3:24 p.m.