data-raw/make_datasets.R

In paulponcet/metsyn: Interface with the Meteo France Synop Data API

library(metsyn)
library(readr)

# 'metdes' dataset
make_metdes(save_it = TRUE)

# 'metsyn' dataset
for (y in 1996:2017) {
  for (m in 1:12) {
    m <- if (m < 10) paste0(0, m) else m
    download_monthly_synop(date = paste0(y, m), 
                           mode = "wb")
  }
}
trial = make_metsyn(save_it = TRUE)

# 'metsta' dataset
make_metsta(save_it = TRUE)