check_empty_beaustier_folders()
if (is_beast2_installed() && beautier::is_on_ci()) {
beast2_options <- create_beast2_options(
input_filename = get_beastier_path("2_4.xml")
)
run_beast2_from_options(beast2_options)
file.remove(beast2_options$output_state_filename)
remove_beaustier_folders()
}
check_empty_beaustier_folders()
Run the code above in your browser using DataLab