tests/testthat/setup.R

In FRBCesab/forcis: An R Client to Access the FORCIS Database

#' Setup Tests Infrastructure
#' 

## Temporary Directory ----

create_tempdir <- function(path = file.path(tempdir(), "sandbox")) {
  
  old_wd <- getwd()
  
  withr::defer(fs::dir_delete(path), envir = parent.frame())
  
  dir.create(path)
  
  setwd(path)
  
  withr::defer(setwd(old_wd), envir = parent.frame())
  
  invisible(path)
}