inst/extdata/utils.R

In nhdplusTools: NHDPlus Tools

download_pkg_data <- function(f, u, work_dir) {
  dir.create(work_dir, showWarnings = FALSE, recursive = TRUE)

  d <- file.path(work_dir, f)

  check_cache <- file.path(nhdplusTools::nhdplusTools_data_dir(), f)

  if(file.exists(check_cache)) {

    project_file <- check_cache

  } else {

    project_file <- c(paste0("../../docs/data/", f),
                      paste0("docs/data/", f))

    project_file <- project_file[file.exists(project_file)][1]

  }

  if(length(project_file) > 0 &&
     file.exists(project_file)) {

    if(!dir.exists(dirname(d))) {
      dir.create(dirname(d), showWarnings = TRUE, recursive = TRUE)
    }


    file.copy(project_file, d, overwrite = TRUE)
  } else {
    url <- u
    invisible(httr::RETRY("GET", url,
                          httr::write_disk(d, overwrite=TRUE),
                          times = 3, pause_cap = 20))
  }

  if(grepl(".zip$", d)) {
    zip::unzip(d, exdir = work_dir)
    unlink(d)
  }

  return(invisible(work_dir))

}