library(AirMonitor)
# Walla Walla
longitude <- -118.3302
latitude <- 46.065
distance <- monitor_getDistance(NW_Megafires, longitude, latitude)
closestIndex <- which(distance == min(distance))
# Distance in meters
distance[closestIndex]
# Monitor core metadata
str(NW_Megafires$meta[closestIndex, AirMonitor::coreMetadataNames])
Run the code above in your browser using DataLab