# NOT RUN {
library(AirSensor)
setArchiveBaseUrl("http://data.mazamascience.com/PurpleAir/v1")
# California
ca <-
pas_load() %>%
pas_filter(stateCode == 'CA')
if ( interactive() ) {
pas_leaflet(ca, parameter = "pm25_1hr")
pas_leaflet(ca, parameter = "temperature")
pas_leaflet(ca, parameter = "humidity")
pas_leaflet(ca, parameter = "pwfsl_closestDistance", maptype = "satellite")
}
# }
Run the code above in your browser using DataLab