#' @importFrom utils download.file unzip
#' @importFrom usethis ui_info ui_done
#'
# simple function that downloads large zipped RUIAN file, extracts it and returns the path to the
#
# unzipped folder
.download_RUIAN <- function() {
temp_dir <- tempdir()
ruian_file <- file.path(temp_dir, "RUIAN.zip")
url <- "http://services.cuzk.cz/shp/stat/epsg-5514/1.zip"
if (!memoise::has_cache(m_GET)(url)) {
usethis::ui_info("Downloading roughly 243 MB, this can take a while.")
} else {
usethis::ui_info("Using cached data.")
}
m_GET(url) %>%
write_zip_file(ruian_file)
utils::unzip(ruian_file, exdir = temp_dir)
usethis::ui_done("Data downloaded and unpacked.")
file.path(temp_dir, "1")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.