# \donttest{
## Map network from a dataset of measurements
if (require("RSocrata")) {
# Download daily concentrations observed at all the stations in 2020.
d <- get_ARPA_Lombardia_AQ_data(ID_station = NULL, Date_begin = "2020-01-01",
Date_end = "2020-12-31", Frequency = "daily")
# Map the stations included in 'd'
map_Lombardia_stations(data = d, title = "Air quality stations in Lombardy")
}
## Map network from a registry dataset
if (require("RSocrata")) {
# Download registry for all the AQ stations in 2020.
r <- get_ARPA_Lombardia_AQ_registry()
# Map the stations included in 'r'
map_Lombardia_stations(data = r, title = "Air quality stations in Lombardy")
}
# }
Run the code above in your browser using DataLab