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