if (is_on_ci()) {
check_empty_beautier_folder()
# Get an example FASTA file
input_filename <- get_fasta_filename()
# The file created by beautier, a BEAST2 input file
output_filename <- get_beautier_tempfilename()
# Use the default BEAUti settings to create a BEAST2 input file
create_beast2_input_file_from_model(
input_filename,
output_filename,
inference_model = create_inference_model()
)
# Remove the folder that contains the beautier temporary files
remove_beautier_folder()
check_empty_beautier_folder()
}
Run the code above in your browser using DataLab