# NOT RUN {
# Fail gracefully if any resources are not available
try({
library(PWFSLSmoke)
initializeMazamaSpatialUtils()
monitorList <- list()
monitorList[[1]] <- airsis_createMonitorObject(20160701, 20161231, 'USFS', '1031')
monitorList[[2]] <- airsis_createMonitorObject(20160701, 20161231, 'USFS', '1032')
monitorList[[3]] <- airsis_createMonitorObject(20160701, 20161231, 'USFS', '1033')
monitorList[[4]] <- airsis_createMonitorObject(20160701, 20161231, 'USFS', '1034')
ws_monitor <- monitor_combine(monitorList)
if ( interactive() ) {
monitor_leaflet(ws_monitor)
}
}, silent = FALSE)
# }
Run the code above in your browser using DataLab