# NOT RUN {
locationTbl <- get(data("wa_monitors_500"))
# Wenatchee
lon <- -120.325278
lat <- 47.423333
# Too small a radius will not find a match
table_getLocationID(locationTbl, lon, lat, radius = 50)
# Expanding the radius will find one
table_getLocationID(locationTbl, lon, lat, radius = 5000)
# }
Run the code above in your browser using DataLab