if (FALSE) {
library(AirMonitor)
# Fail gracefully if any resources are not available
try({
wa <-
monitor_load(20210601, 20211001) %>%
monitor_filter(stateCode == "WA")
monitor_timeseriesPlot(wa)
}, silent = FALSE)
}
Run the code above in your browser using DataLab