tests/testthat/test-examples.R

In OncoBayes2: Bayesian Logistic Regression for Oncology Dose-Escalation Trials

context("examples")

## run examples with super-slim sampling to make sure they actually
## run
## DO NOT USE fake_sampling()

if(FALSE) {
    ## does not run atm for odd reasons
test_that("blrm_exnex example runs", example(blrm_exnex, package="OncoBayes2", run.dontrun=TRUE))
test_that("prior_summary example runs", example(prior_summary.blrmfit, package="OncoBayes2", run.dontrun=TRUE))
test_that("posterior_linpred example runs", example(posterior_linpred.blrmfit, package="OncoBayes2", run.dontrun=TRUE))
test_that("posterior_predict example runs", example(posterior_predict.blrmfit, package="OncoBayes2", run.dontrun=TRUE))
test_that("posterior_interval example runs", example(posterior_interval.blrmfit, package="OncoBayes2", run.dontrun=TRUE))
test_that("predictive_interval example runs", example(predictive_interval.blrmfit, package="OncoBayes2", run.dontrun=TRUE))
}

test_that("example_model() lists expected models", {
    expect_set_equal(example_model(), names(example_cache))
})