Nothing
# 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())
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.