# NOT RUN {
# Fail gracefully if any resources are not available
try({
epa_loadAnnual(2000, "88502") %>%
monitor_subset(stateCodes = 'WA', tlim=c(20000701,20000801)) %>%
monitor_map()
}, silent = FALSE)
# }
Run the code above in your browser using DataLab