library(AirMonitor)
# Lane County, Oregon AQSIDs all begin with "41039"
LaneCounty <-
NW_Megafires %>%
monitor_filter(stringr::str_detect(AQSID, '^41039')) %>%
monitor_filterDate(20150822, 20150823)
LaneCounty %>%
aqiCategories()
LaneCounty %>%
aqiCategories(conversionArray = US_AQI$names_eng)
Run the code above in your browser using DataLab