R/download_monthly_synop.R

In metsyn: Interface with the Meteo France Synop Data API

#' @importFrom utils download.file
#' @export
#' @rdname download_daily_synop
#' 
download_monthly_synop <- 
function(path = ".", 
         date, # "199608"
         ...)
{
  file <- paste0("synop.", date, ".csv.gz")
  dir.create(file.path(path, "data-raw"), showWarnings = FALSE)
  utils::download.file(url = paste(metsyn_url(), file, sep = "/"), 
                       destfile = file.path(path, "data-raw", paste0("monthly_", file)), 
                       ...)
  invisible(NULL)
}