if (is_beast2_installed() && beautier::is_on_ci()) {
beast2_filename <- get_beastier_path("anthus_2_4.xml")
text <- readLines(beast2_filename)
are_beast2_input_lines_deep(text)
remove_beaustier_folders()
}
check_empty_beaustier_folders()
Run the code above in your browser using DataLab