if (FALSE) { # interactive()
library(meteospain)
library(keyring)
# MeteoCat (we need a key)
# key_set('meteocat')
api_options <- meteocat_options(api_key = key_get('meteocat'))
get_quota_from('meteocat', api_options)
}
Run the code above in your browser using DataLab