library(MazamaLocationUtils)
locationTbl <- get(data("wa_monitors_500"))
# Wenatchee
lon <- -120.325278
lat <- 47.423333
# Get the locationID first
locationID <- table_getLocationID(locationTbl, lon, lat, distanceThreshold = 5000)
# Now find the row associated with this ID
recordIndex <- table_getRecordIndex(locationTbl, locationID)
str(locationTbl[recordIndex,])
Run the code above in your browser using DataLab