R/download-attachment.R

In MTES-MCT/didor: Tools to Explore and Download CGDD/SDES Opendata

#' download attachment files
#'
#' @param url url of the attachment
#'
#' @param dest directory to save it, if `NULL` use current directory
#'
#' @noRd
#' @keywords internal
download_attachment <- function(url, dest = NULL) {
  if (!(is.null(dest) || dir.exists(dest))) {
    stop(paste0("dest dir `", dest, "` doesn't exists"), call. = FALSE)
  }

  response <- http_get(url)

  file_name <- strsplit(response$headers$`content-disposition`, '"')[[1]][2]
  if (!is.null(dest)) file_name <- paste0(dest, "/", file_name)

  tryCatch(
    {
      filehandle <- file(file_name, "wb")
      writeBin(response$content, filehandle)
    },
    error = function(e) {
      stop(paste0("Unable to download file: ", e), call. = FALSE)
    },
    finally = {
      close(filehandle)
    }
  )
  message(paste0("file downloaded: ", file_name))
  invisible(url)
}