tests/testthat/setup.R

options(mc.cores = 8)
data.table::setDTthreads(8)

test_data_dir <- function(){

  dir <- system.file(package = "p.s3") %>% file.path(., "extdata/testdata")

  return(dir)

}
andrewrech/p.s3 documentation built on Sept. 28, 2020, 12:33 p.m.