Extending climaemet • climaemet

climaemet provides several functions for accessing a selection of endpoints of the AEMET API tool. However, this package does not cover in full all the capabilities of the API.

For that reason, we provide the get_data_aemet() function, that allows to access any API endpoint freely. The drawback is that the user would need to handle the results by him/herself.

library(climaemet)

Example: Normalized text

Some API endpoints, as predicciones-normalizadas-texto, provides the results as plain text on natural language. These results are not parsed by climaemet, but can be retrieved as this:

# endpoint, today forecast

today <- "/api/prediccion/nacional/hoy"

# Metadata
knitr::kable(get_metadata_aemet(today))

unidad_generadora	descripcion	periodicidad	formato	copyright	notaLegal
Grupo Funcional de Predicción de Referencia	Predicción general nacional para hoy / mañana / pasado mañana / medio plazo (tercer y cuarto día) / tendencia (del quinto al noveno día)	Disponibilidad. Para hoy, solo se confecciona si hay cambios significativos. Para mañana y pasado mañana diaria a las 15:00 h.o.p.. Para el medio plazo diaria a las 16:00 h.o.p.. La tendencia, diaria a las 18:30 h.o.p.	ascii/txt	© AEMET. Autorizado el uso de la información y su reproducción citando a AEMET como autora de la misma.	https://www.aemet.es/es/nota_legal


# Data
pred_today <- get_data_aemet(today)
#> 
#> Results are MIME type: text/plain
#> Returning data as string

# Produce a result

clean <- gsub("\r", "\n", pred_today, fixed = TRUE)
clean <- gsub("\n\n\n", "\n", clean, fixed = TRUE)

cat(paste("---\n\n", clean, "\n---"))

AGENCIA ESTATAL DE METEOROLOGÍA PREDICCIÓN GENERAL PARA ESPAÑA DÍA 08 DE JULIO DE 2024 A LAS 08:16 HORA OFICIAL PREDICCIÓN VÁLIDA PARA EL LUNES 8

A.- FENÓMENOS SIGNIFICATIVOS Aumento notable de las temperaturas máximas en áreas del centro norte peninsular. No se descartan tormentas dispersas, con baja probabilidad de que sean localmente fuertes en el este Aragón.

B.- PREDICCIÓN En la mayor parte del país se prevé tiempo estable con cielos poco nubosos. No obstante, la aproximación de un sistema frontal atlántico aumentará la nubosidad en el noroeste peninsular, con precipitaciones en la segunda mitad del día, más abundantes en el noroeste de Galicia. Asimismo, se desarrollará nubosidad de evolución en interiores del tercio oriental, con posibilidad de chubascos o tormentas dispersos ocasionales, más probables e intensos en el este de Aragón. También habrá nubes bajas matinales en el área mediterránea oriental, con posibles lloviznas en el sur del Levante. En Canarias se esperan intervalos nubosos en el norte.

Probables bancos de niebla matinales en el alto Ebro, zonas del tercio oriental, Cádiz y, durante el día, brumas o nieblas costeras en litorales del sudeste.

Las temperaturas máximas aumentarán de forma generalizada, incluso notable en zonas del centro norte peninsular y descenderán en Canarias y litorales de la mitad sur del área mediterránea. Pueden superar los 34 grados en el Guadalquivir, Ebro y valles de la meseta Sur. Las mínimas descenderán en el tercio sudeste y los archipiélagos, aumentando en la mitad norte peninsular y con pocos cambios en el resto.

Soplará poniente en el Estrecho, amainando y flojos variables en Alborán. Predominarán vientos del este y sureste en el resto de la vertiente mediterránea y Cantábrico, y del sur y oeste en la vertiente atlántica. Serán flojos en general salvo en el Ebro, Ampurdán y oeste de Galicia donde se prevén más intensos. En Canarias soplará el alisio con intervalos de fuerte en zonas expuestas.

Example: Maps

AEMET also provides map data, usually on image/gif format. One way to get this kind of data is as follows:

# Endpoint of a map
a_map <- "/api/mapasygraficos/analisis"

# Metadata
knitr::kable(get_metadata_aemet(a_map))

unidad_generadora	descripción	periodicidad	formato	copyright	notaLegal
Grupo Funcional de Jefes de Turno	Mapas de análisis de frentes en superficie	Dos veces al día, a las 02:00 y 14:00 h.o.p. en invierno y a las 03:00 y 15:00 en verano.	image/gif	© AEMET. Autorizado el uso de la información y su reproducción citando a AEMET como autora de la misma.	https://www.aemet.es/es/nota_legal


the_map <- get_data_aemet(a_map)
#> 
#> Results are MIME type: image/gif
#> Returning raw data


# Write as gif and include it
giffile <- "example-gif.gif"
writeBin(the_map, giffile)

# Display on the vignette
knitr::include_graphics(giffile)

Example: Surface analysis map provided by AEMET