Nothing
library(shinytest)
test_that(paste(
"the app does not crash when switching the dataset after having selected",
"outcome and distributional family (but no predictors) for the initial dataset."
), {
skip_on_cran()
skip_if_not_installed("lme4")
skip_if_not_installed("MASS")
shinytest::installDependencies()
app_path <- system.file("shinybrms_app", package = "shinybrms")
shinytest::expect_pass(shinytest::testApp(app_path, testnames = "switchData_outcome.R"))
})
test_that(paste(
"the app does not crash when switching to a dataset which differs from",
"the initial dataset only in the name of a predictor variable."
), {
skip_on_cran()
shinytest::installDependencies()
app_path <- system.file("shinybrms_app", package = "shinybrms")
shinytest::expect_pass(shinytest::testApp(app_path, testnames = "switchData_pred.R"))
})
test_that("uploading another dataset (here: the same dataset again) resets the custom priors.", {
skip_on_cran()
shinytest::installDependencies()
app_path <- system.file("shinybrms_app", package = "shinybrms")
shinytest::expect_pass(shinytest::testApp(app_path, testnames = "switchData_same.R"))
})
test_that(paste(
"switching to a dataset which differs from the initial dataset only in some values of the variables",
"causes the default priors to be recomputed correctly and the custom priors to be reset."
), {
skip_on_cran()
shinytest::installDependencies()
app_path <- system.file("shinybrms_app", package = "shinybrms")
shinytest::expect_pass(shinytest::testApp(app_path, testnames = "switchData_value.R"))
})
test_that(paste(
"the app does not crash and the default priors are reset when switching the dataset after",
"having built a working model for the initial dataset."
), {
skip_on_cran()
skip_if_not_installed("lme4")
skip_if_not_installed("MASS")
shinytest::installDependencies()
app_path <- system.file("shinybrms_app", package = "shinybrms")
shinytest::expect_pass(shinytest::testApp(app_path, testnames = "switchData_prior.R"))
})
test_that("clearing the outcome resets the priors.", {
skip_on_cran()
skip_if_not_installed("MASS")
shinytest::installDependencies()
app_path <- system.file("shinybrms_app", package = "shinybrms")
shinytest::expect_pass(shinytest::testApp(app_path, testnames = "clearOutcome.R"))
})
test_that("clearing the distributional family resets the priors.", {
skip_on_cran()
skip_if_not_installed("MASS")
shinytest::installDependencies()
app_path <- system.file("shinybrms_app", package = "shinybrms")
shinytest::expect_pass(shinytest::testApp(app_path, testnames = "clearFamily.R"))
})
test_that("clearing the example dataset resets the priors, the selected outcome, and the selected predictors.", {
skip_on_cran()
skip_if_not_installed("MASS")
shinytest::installDependencies()
app_path <- system.file("shinybrms_app", package = "shinybrms")
shinytest::expect_pass(shinytest::testApp(app_path, testnames = "clearData.R"))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.