R/test.R

In AntonelliLab/gaius: Divide and Conquer Phylogenetic Supermatrices and Supertrees in R

# Unittest ----
datadir_get <- function(subdir = "") {
  wd <- getwd()
  if (grepl("testthat", wd)) {
    datadir <- "data"
  }
  else {
    datadir <- file.path("tests", "testthat", "data")
  }
  file.path(datadir, subdir)
}