R/get_zip.r

In wkmor1/voiConsPlan: Value of information for conservation planning

#' @importFrom httr GET write_disk
#' @importFrom utils unzip
#' @export
get_zip <-
  function(u, p, d) {
    GET(
      url = u,
      path = p,
      write_disk(d, overwrite = TRUE)
    )
    unzip(d, overwrite = TRUE, junkpaths = TRUE)
  }