context("is_posterior")
test_that("detect posterior", {
trees_filename <- system.file(
"extdata", "beast2_example_output.trees", package = "RBeast"
)
testit::assert(file.exists(trees_filename))
log_filename <- system.file(
"extdata", "beast2_example_output.log", package = "RBeast"
)
testit::assert(file.exists(log_filename))
posterior <- RBeast::parse_beast_posterior(
trees_filename = trees_filename,
log_filename = log_filename
)
testthat::expect_true(is_posterior(posterior))
})
test_that("detect non-posteriors", {
testthat::expect_false(
RBeast::is_posterior("nonsense")
)
testthat::expect_false(
RBeast::is_posterior(list("estimates" = NA, "nonsense" = NA))
)
testthat::expect_false(
RBeast::is_posterior(list("trees" = NA, "nonsense" = NA))
)
testthat::expect_true(
RBeast::is_posterior(list("trees" = NA, "estimates" = NA))
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.