# NOT RUN {
locationTbl <- get(data("wa_monitors_500"))
dim(locationTbl)
# Wenatchee
lon <- -120.325278
lat <- 47.423333
# Get the locationID first
locationID <- table_getLocationID(locationTbl, lon, lat, radius = 500)
# Remove it
locationTbl <- table_removeRecord(locationTbl, locationID)
dim(locationTbl)
# Test
table_getLocationID(locationTbl, lon, lat, radius = 500)
# }
Run the code above in your browser using DataLab