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)
}

Try the rebird package in your browser

Any scripts or data that you put into this service are public.

rebird documentation built on Sept. 20, 2021, 9:06 a.m.