# NOT RUN {
# Fail gracefully if any resources are not available
try({
library(PWFSLSmoke)
df <- airsis_createRawDataframe(startdate=20160901, enddate=20161015, provider='USFS', unitID=1012)
df <- raw_enhance(df)
rawPlot_timeseries(df, tlim=c(20160908,20160917))
}, silent = FALSE)
# }
Run the code above in your browser using DataLab