if (rappdirs::app_dir()$os != "win" &&
beautier::is_on_ci() &&
beastier::is_beast2_installed() &&
is_beast2_ns_pkg_installed()
) {
fasta_filename <- system.file(
"extdata", "alignment.fas", package = "pirouette"
)
# Create a single one candidate experiment
experiments <- list(create_test_cand_experiment())
# Collect the evidences
est_evidences(
fasta_filename = fasta_filename,
experiments = experiments
)
}
Run the code above in your browser using DataLab