library(AirMonitor)
# Show all Camp_Fire locations
Camp_Fire$meta$locationName
# Use package US_AQI data for HAZARDOUS
name <- US_AQI$names_eng[6]
threshold <- US_AQI$breaks_PM2.5[6]
# Find HAZARDOUS locations
worst_sites <-
Camp_Fire %>%
monitor_selectWhere(
function(x) { any(x >= threshold, na.rm = TRUE) }
)
# Show the worst locations
worst_sites$meta$locationName
Run the code above in your browser using DataLab