tests/testthat/setup-functions.R

In hughjonesd/pastapi: Explore the Historical API of R Packages

run_in_fresh_cache <- function(mran, expr) {
  expr <- rlang::enquo(expr)
  old_opts <- options(apicheck.use_mran = mran, repos = "https://cloud.r-project.org", mc.cores = 2)
  old_lib_dir <- set_lib_dir(NULL) # can't avoid possibly putting LIB_DIR into options...
  clear_lib_dir()
  on.exit({
    options(old_opts)
    set_lib_dir(old_lib_dir)
  })
  rlang::eval_tidy(expr)
}

skip_if_mran_down <- memoise::memoise( function () {
  # small 17K package
  tempdir <- tempfile(pattern = "testing", tmpdir = normalizePath(tempdir()))
  dir.create(tempdir)
  prepare <- try(versions::install.versions("enrichwith", "0.0.3", lib = tempdir), silent = TRUE)
  if (class(prepare) == "try-error") skip("Couldn't download test package, MRAN may be down")
})