tests/testthat/helper-cache.R

In geobounds: Download Administrative Boundary Data from 'geoBoundaries'

local_test_cache <- function(pattern = "geobounds-test-cache-") {
  local_envir <- parent.frame()
  cache_dir <- withr::local_tempdir(pattern, .local_envir = local_envir)
  withr::local_envvar(
    GEOBOUNDS_CACHE_DIR = cache_dir,
    .local_envir = local_envir
  )
  cache_dir
}

local_test_user_config_dir <- function(
  pattern = "geobounds-test-config-",
  tmpdir = tempdir()
) {
  local_envir <- parent.frame()
  config_dir <- withr::local_tempdir(
    pattern,
    tmpdir = tmpdir,
    .local_envir = local_envir
  )
  withr::local_envvar(GEOBOUNDS_CACHE_DIR = "", .local_envir = local_envir)
  testthat::local_mocked_bindings(
    gb_hlp_user_dir = function(...) {
      config_dir
    },
    .env = local_envir
  )
  config_dir
}