Obtain info about the API quota used
get_quota_from(service = c("meteocat"), options)
Character with the service name (in lower case).
List with the needed service options. See services_options
to have more info
about the different services and their options.
A data frame with the quota info
Depending on the service, some APIs allows only a number of data requests. This function access the user quota numbers in the services that allow for this, (currently only MeteoCat)
# \donttest{
if (identical(Sys.getenv("NOT_CRAN"), "true")) {
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)
}
#> # A tibble: 5 × 5
#> nom periode maxConsultes consultesRestants consultesRealitzades
#> <chr> <chr> <int> <int> <int>
#> 1 Prediccio_8000 Mensual 8000 8000 0
#> 2 Referència Bàsic Mensual 2000 2000 0
#> 3 XDDE_1500 Mensual 1500 1500 0
#> 4 XEMA_20000 Mensual 20000 11735 8265
#> 5 Quota Mensual 300 271 29
# }