Om een REST API uit te lezen kun je de jsonlite package gebruiken. De fromJSON functie heeft als basis alleen de url naar de JSON data nodig.
Met de leaflet package kan eenvoudig een kaart worden gebouwd met daarin de locaties die gegeven zijn door hun longitude en latitude coordinaten. De popup kan met verschillende variabelen uit de JSON data set worden gevuld.
De htmltools package heeft een functie htmlEscape waarmee eventuele HTML tags uit een tekst wordt gefilterd, zodat die de weergave niet verstoren. In deze casus is dat niet nodig, maar bij andere data kan dit voorkomen.
library(jsonlite)
library(leaflet)
library(htmltools)
gateways <- fromJSON("https://thethingsnetwork.org/api/v0/gateways/")
gateways$ID <- c(1:100)
m <- leaflet(gateways) %>%
addTiles() %>% # Add default OpenStreetMap map tiles
addMarkers(
lng = ~longitude,
lat = ~latitude,
popup = ~htmlEscape(eui)
)
m # Print the map