if (is_on_ci()) {
hky_site_model <- create_hky_site_model()
output_filename <- get_beautier_tempfilename()
create_beast2_input_file(
input_filename = get_fasta_filename(),
output_filename = output_filename,
site_model = hky_site_model
)
file.remove(output_filename)
remove_beautier_folder()
}
Run the code above in your browser using DataLab