# NOT RUN {
library(AirSensor)
# Near Diamond Bar, CA
pas <- example_pas
diamond_bar <-
pas %>%
pas_filterNear(
longitude = -117.820833,
latitude = 34.001667,
radius = "20 km"
)
if ( interactive() ) {
pas_leaflet(diamond_bar)
}
# }
Run the code above in your browser using DataLab