tests/testthat/setup-gold.R

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

if(!exists("gold_runs")) {
    if(!testthat:::on_cran() & identical(Sys.getenv("TEST_VDIFFR"), "true")){

        # load gold runs, possibly from cache
        .mc_options <- default_sampling()
        gold_runs <- load_gold(TRUE)
        options(.mc_options)

    } else {

        # load gold runs, use cache if available, but do short
        # sampling if not
        if (identical(Sys.getenv("NOT_CRAN"), "true")) {
            .mc_options <- very_fast_sampling()
        } else {
            .mc_options <- fake_sampling()
        }
        gold_runs <- load_gold(TRUE)
        options(.mc_options)

    }
}