if (is_on_ci()) {
check_empty_beautier_folder()
beauti_options <- create_beauti_options_v2_4()
xml <- create_beast2_input(
get_fasta_filename(),
beauti_options = beauti_options
)
check_empty_beautier_folder()
}
Run the code above in your browser using DataLab