tests/testthat/helper-stegasaur.R

with_dir <- function(path, code) {
  owd <- setwd(path)
  on.exit(setwd(owd))
  force(code)
}


stegasaur_file <- function(path) {
  system.file(path, package = "stegasaur", mustWork = TRUE)
}
richfitz/stegasaur documentation built on Feb. 12, 2021, 1:41 a.m.