tests/testthat/setup.R

In limorhyde2: Quantify Rhythmicity and Differential Rhythmicity in Genomic Data

library('glue')

foreach::registerDoSEQ()
dataDir = 'data'

snapshot = function(xObs, path) {
  if (file.exists(path)) {
    xExp = qs::qread(path)
  } else {
    qs::qsave(xObs, path)
    xExp = xObs}
  return(xExp)}