tests/testthat/helper.R

test_that_without_key <- function(desc, code) {
  old_key <- Sys.getenv("EBIRD_KEY")
  Sys.unsetenv("EBIRD_KEY")
  on.exit(Sys.setenv(EBIRD_KEY = old_key))
  test_that(desc, code)
}
ropensci/rebird documentation built on Aug. 13, 2024, 3:39 a.m.