# NOT RUN {
airnow <- airnow_loadLatest()
nw <- monitor_subset(airnow, stateCodes = c('WA','OR','ID','MT'))
dailyList <- monitor_dailyStatisticList(nw)
monitor_leaflet(dailyList[["America/Los_Angeles"]])
monitor_leaflet(dailyList[["America/Boise"]])
monitor_leaflet(dailyList[["America/Denver"]])
# }
Run the code above in your browser using DataLab