if (rappdirs::app_dir()$os != "win" &&
beautier::is_on_ci() &&
beastier::is_beast2_installed()
) {
pir_params <- create_test_pir_params()
check_pir_params(pir_params)
pir_out <- pir_run(
phylogeny = ape::read.tree(text = "((A:1, B:1):1, C:2);"),
pir_params = pir_params
)
pir_plot(pir_out)
}
Run the code above in your browser using DataLab