if (beautier::is_on_ci()) {
# Check cleanup by other functions
beastier::check_empty_beaustier_folders()
check_experiments(list(create_test_experiment()))
if (rappdirs::app_dir()$os != "win") {
experiments <- list(
create_test_experiment(),
create_test_cand_experiment()
)
# Experiments must have different inference models
experiments[[1]]$inference_model$site_model <-
beautier::create_gtr_site_model()
check_experiments(experiments)
}
}
Run the code above in your browser using DataLab