if (beautier::is_on_ci() && is_beast2_installed()) {
beastier::remove_beaustier_folders()
beastier::check_empty_beaustier_folders()
# A simple FASTA file
fasta_filename <- beautier::get_beautier_path("test_output_0.fas")
# Simple short inference
inference_model <- create_test_inference_model()
# Default BEAST2 options
beast2_options <- create_beast2_options()
bbt_run_from_model(
fasta_filename = fasta_filename,
inference_model = inference_model,
beast2_options = beast2_options
)
bbt_continue(
fasta_filename = fasta_filename,
inference_model = inference_model,
beast2_options = beast2_options
)
# Cleanup
bbt_delete_temp_files(
inference_model = inference_model,
beast2_options = beast2_options
)
beastier::remove_beaustier_folders()
beastier::check_empty_beaustier_folders()
}
Run the code above in your browser using DataLab