library(MazamaLocationUtils)
locationTbl <- get(data("wa_monitors_500"))
# Too small a distanceThreshold will not find a match
locationTbl %>%
table_filterByDistance(
longitude = -117.3647,
latitude = 47.6725,
distanceThreshold = 10
) %>%
dplyr::glimpse()
# Expanding the distanceThreshold will find several
locationTbl %>%
table_filterByDistance(
longitude = -117.3647,
latitude = 47.6725,
distanceThreshold = 10000
) %>%
dplyr::glimpse()
Run the code above in your browser using DataLab