R/download_RUIAN.R

In JanCaha/CzechData: Download various datasets (including spatial data) for the Czech Republic

#' @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")
}