tests/testthat/test-parse_beast_trees.R

In beast-dev/RBeast: Create BEAST and BEAST2 input files and parse their output

context("parse_beast_trees")

test_that("parse_beast_trees: use", {

  filename <- system.file(
    "extdata", "beast2_example_output.trees", package = "RBeast"
  )

  posterior <- parse_beast_trees(
    filename = filename
  )
  expect_true(is_trees_posterior(posterior))
})