# NOT RUN {
library(PWFSLSmoke)
ws_monitor <- Northwest_Megafires
data <- ws_monitor %>%
monitor_subset(
stateCodes = "WA",
tlim = c(20150801, 20150831)
) %>%
monitor_extractData()
meta <- ws_monitor %>%
monitor_subset(
stateCodes = "WA",
tlim = c(20150801, 20150831)
) %>%
monitor_extractMeta()
dplyr::glimpse(meta)
dplyr::glimpse(data)
# }
Run the code above in your browser using DataLab