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 20 DE NOVIEMBRE DE 2024 A LAS 07:56 HORA OFICIAL PREDICCIÓN VÁLIDA PARA EL MIÉRCOLES 20

A.- FENÓMENOS SIGNIFICATIVOS Intervalos de viento fuerte y rachas muy fuertes en litorales cantábricos, y localmente en los mediterráneos. Rachas muy fuertes en interiores del tercio este y en Baleares. Precipitaciones localmente persistentes en el Cantábrico oriental.

B.- PREDICCIÓN Entrada de un frente que dejará cielos nubosos o cubiertos en la mitad norte con precipitaciones afectando a Galicia, área cantábrica, alto Ebro, norte de la Ibérica, Pirineos y nordeste de Cataluña, de forma más abundante en el Cantábrico oriental, donde serán persistentes. No se descarta que acabasen alcanzando otros puntos de la mitad norte peninsular y norte de Baleares, con mayor probabilidad en entornos de montaña. Se esperan en forma de nieve en el Pirineo, con acumulados significativos en una cota que bajará de los 2000 a un entorno de 1600 m. En el resto de la Península predominará un tiempo anticiclónico, con abundante nubosidad baja matinal tendiendo en general a levantar para quedar poco nuboso o con nubes altas, y sin descartar alguna lluvia débil y dispersa en el entorno de las Béticas y de forma más probable e intensa en el Estrecho. En Canarias, predominarán los cielos poco nubosos y la nubosidad de evolución que no se descarta que dejan tormentas en Tenerife y en la provincia oriental.

Probables brumas y nieblas matinales áreas de Andalucía, Extremadura, meseta Sur, centro peninsular, y en entornos de montaña del norte peninsular. Calima en Canarias, desplazándose de este a oeste.

Las temperaturas máximas descenderán en la Península y Baleares salvo en litorales donde no se esperan cambios y en ascenso en Canarias. Predominarán los aumentos en las mínimas en los tercios norte y este peninsular, así como en los archipiélagos, y los descensos en el resto. Heladas débiles en el Pirineo.

Soplará viento intenso de componente oeste en la Península y Baleares, con intervalos de fuerte y rachas muy fuertes en litorales cantábricos, y localmente en los mediterráneos. También se prevén rachas muy fuertes en interiores del tercio este y en Baleares. En Canarias se espera que soplen vientos flojos de componente este, moderado de componente sur en cumbres, con intervalos de fuerte y rachas muy fuertes en el Teide.

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