check_empty_beaustier_folders()
if (is_beast2_installed() && beautier::is_on_ci()) {
filename <- get_beastier_path("anthus_2_4.xml")
# TRUE, this is a BEAST2 input file
is_beast2_input_file(filename)
filename <- get_beastier_path("beast2_example_output.log")
# FALSE, this is not a BEAST2 input file,
# it is a BEAST2 output log file insteaf
is_beast2_input_file(filename)
}
check_empty_beaustier_folders()
Run the code above in your browser using DataLab