Nothing
unzip_ <- function(path) {
if (is.na(path)) return(NA)
if (!file.exists(path)) {
stop("The file ", path, " does not exist", call. = FALSE)
}
extracted_files <- utils::unzip(path, exdir = tempdir(), list = TRUE)
if (nrow(extracted_files) == 1) {
utils::unzip(path, exdir = tempdir())
return(file.path(tempdir(), extracted_files[["Name"]]))
} else {
return(NA)
}
}
`%||%` <- function (x, y) {
if (is.null(x)) y else x
}
request_dod <- function(url) {
httr2::request(url) |>
httr2::req_user_agent(
"dataonderivatives (https://imanuelcostigan.github.io/dataonderivatives/)"
)
}
utils::globalVariables(c("."))
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.