tests/testthat/setup.R

In ebirdst: Access and Analyze eBird Status and Trends Data Products

if (!testthat:::on_cran()) {
  # the contents of this file are run once for all tests

  # set download directory to a temporary directory
  old_dir <- Sys.getenv("EBIRDST_DATA_DIR")
  temp_dir <- file.path(tempdir(), "ebirdst_temp_dir")
  dir.create(temp_dir, recursive = TRUE, showWarnings = FALSE)
  Sys.setenv(EBIRDST_DATA_DIR = temp_dir)

  # download example data
  path <- ebirdst_download_status(
    "yebsap-example",
    download_all = TRUE,
    show_progress = FALSE
  )
  path <- ebirdst_download_trends("yebsap-example", show_progress = FALSE)

  # cleanup the mess we made above
  cleanup <- function() {
    Sys.setenv(EBIRDST_DATA_DIR = old_dir)
    unlink(temp_dir, recursive = TRUE)
  }
  # run cleanup after tests are complete
  withr::defer(cleanup(), teardown_env())
}