# NOT RUN {
library(AirSensor)
pas <- example_pas
range(pas$longitude)
range(pas$latitude)
scsb <-
pas %>%
pas_filterArea(
w = -118.10,
e = -118.07,
s = 33.75,
n = 33.78
)
range(scsb$longitude)
range(scsb$latitude)
if ( interactive() ) {
pas_leaflet(scsb)
}
# }
Run the code above in your browser using DataLab