Nothing
# library(data.table)
withr::local_package("terra")
# origDTthreads <- getDTthreads()
# wantMoreTests <- isInteractive() || Sys.info()["user"] %in% "emcintir"
# if (wantMoreTests) {# this is for covr::package_coverage
# Sys.setenv(NOT_CRAN = "true")
# Sys.setenv(SKIP_GAUTH = "true")
# }
# opts <- options(
# reproducible.runLargeFileTests = FALSE # Set to TRUE to run the 2 long tests -- 20 minutes
# )
# setDTthreads(2)
# withr::defer({
# if (wantMoreTests) {
# print(paste0("getOption('reproducible.rasterRead') = ", getOption("reproducible.rasterRead")))
# print(paste0("getOption('reproducible.runLargeFileTests') = ", getOption('reproducible.runLargeFileTests')))
# print(paste0("getOption('reproducible.useDBI') = ", getOption('reproducible.useDBI')))
# Sys.setenv(NOT_CRAN = "")
# Sys.setenv(SKIP_GAUTH = "")
# }
# options(opts)
# setDTthreads(origDTthreads)
# try(unlink("CHECKSUMS.txt"), silent = TRUE) # comes from an unknown place
# }, teardown_env())
# if (wantMoreTests) {
# print(paste0("getOption('reproducible.rasterRead') = ", getOption("reproducible.rasterRead")))
# print(paste0("getOption('reproducible.runLargeFileTests') = ", getOption('reproducible.runLargeFileTests')))
# print(paste0("getOption('reproducible.useDBI') = ", getOption('reproducible.useDBI')))
# }
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.