tests/testthat/helper.R

In gaborcsardi/argufy: Declerative Arguments Checks

install_tmp_pkg <- function(pkg, expr) {

  tmp <- tempfile()
  dir.create(tmp)
  withr::with_libpaths(
    tmp, action = "prefix",
    withr::with_envvar(
      c(R_LIBS = tmp, R_LIBS_USER = tmp, R_LIBS_SITE = tmp,
        R_PROFILE_USER = tempfile(), R_TESTS = NA_character_),
      {
        install.packages(pkg, repos = NULL, type = "source", quiet = TRUE)
        expr
      }
    )
  )
}