# NOT RUN {
library(AirSensor)
nrow(example_pas)
# California
ca <- pas_filter(example_pas, stateCode == "CA")
nrow(ca)
# Seal Beach
scsb <-
ca %>%
pas_filter(stringr::str_detect(label, "^SCSB_"))
nrow(scsb)
if ( interactive() ) {
pas_leaflet(ca)
pas_leaflet(scsb, maptype = "satellite")
}
# }
Run the code above in your browser using DataLab