if (beautier::is_on_ci() && is_beast2_installed()) {
beastier::remove_beaustier_folders()
beastier::check_empty_beaustier_folders()
# Setup for a short run
mcmc <- create_test_mcmc()
# Store filenames for cleanup.
# Note that 'bbt_run_from_model allows for easier cleanup
mcmc$tracelog$filename <- tempfile()
mcmc$treelog$filename <- tempfile()
mcmc$screenlog$filename <- tempfile()
beast2_input_filename <- tempfile()
beast2_output_state_filename <- tempfile()
bbt_run(
fasta_filename = get_babette_path("anthus_aco.fas"),
beast2_input_filename = beast2_input_filename,
beast2_output_state_filename = beast2_output_state_filename,
mcmc = mcmc
)
# Cleanup
# Again, note that 'bbt_run_from_model allows for easier cleanup
file.remove(mcmc$tracelog$filename)
file.remove(mcmc$treelog$filename)
file.remove(mcmc$screenlog$filename)
file.remove(beast2_input_filename)
file.remove(beast2_output_state_filename)
beastier::remove_beaustier_folders()
beastier::check_empty_beaustier_folders()
}
Run the code above in your browser using DataLab