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