# NOT RUN {
# Fail gracefully if any resources are not available
try({
library(PWFSLSmoke)
# Napa Fires -- October, 2017
ca <- airnow_load(2017) %>%
monitor_subset(tlim=c(20171001,20171101), stateCodes='CA')
Vallejo <- monitor_subset(ca, monitorIDs='060950004_01')
Napa_Fires <- monitor_subsetByDistance(
ca,
longitude = Vallejo$meta$longitude,
latitude = Vallejo$meta$latitude,
radius = 50
)
if ( interactive() ) {
monitor_dygraph(Napa_Fires, title='Napa Fires in California, Oct. 2017')
}
}, silent = FALSE)
# }
Run the code above in your browser using DataLab