if (is_on_ci()) {
check_empty_beautier_folder()
input_filename <- get_fasta_filename()
gtr_site_model <- create_gtr_site_model()
hk_site_model <- create_hky_site_model()
jc69_site_model <- create_jc69_site_model()
tn93_site_model <- create_tn93_site_model()
# Can use any site model
output_filename <- get_beautier_tempfilename()
create_beast2_input_file(
input_filename = input_filename,
output_filename = output_filename,
site_model = jc69_site_model
)
file.remove(output_filename)
remove_beautier_folder()
check_empty_beautier_folder()
}
Run the code above in your browser using DataLab