inst/shinybrms_app/tests/shinytest/clearOutcome.R

In shinybrms: Graphical User Interface ('shiny' App) for 'brms'

app <- ShinyDriver$new("../../")
app$snapshotInit("clearOutcome", screenshot = FALSE)

app$setInputs(advOpts_cores = 2, wait_ = FALSE, values_ = FALSE)

app$setInputs(navbar_ID = "Data",
              ex_da_sel = "bacteria")
app$setInputs(navbar_ID = "Likelihood",
              outc_sel = "y",
              dist_sel = "bernoulli")
app$setInputs(navbar_ID = "Prior",
              prior_class_sel = "Intercept",
              prior_text = "student_t(3, 0, 3)",
              prior_add = "click")
app$snapshot()
# A test for the bug fixed by commit 567d670f9ba478411aed758f1281f6b1e72ab417:
app$setInputs(navbar_ID = "Likelihood",
              outc_sel = "")
app$setInputs(navbar_ID = "Prior")
app$snapshot()