if (FALSE) { # interactive()
library(meteospain)
library(keyring)
# AEMET (we need a key)
# key_set('aemet')
options_for_aemet <- aemet_options(
'daily',
start_date = as.Date('2012-01-16'),
end_date = as.Date('2012-01-31'),
api_key = key_get('aemet')
)
get_meteo_from('aemet', options_for_aemet)
}
Run the code above in your browser using DataLab