Nothing
#' @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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.