if (beautier::is_on_ci()) {
#' # Check cleanup by other functions
beastier::check_empty_beaustier_folders()
experiment <- create_test_experiment()
check_experiment(experiment)
# Cleanup
beastier::remove_beaustier_folders()
beastier::check_empty_beaustier_folders()
}
Run the code above in your browser using DataLab