library(MazamaLocationUtils)
locationTbl <- get(data("wa_monitors_500"))
# Wenatchee
wenatcheeRecord <-
locationTbl %>%
dplyr::filter(city == "Wenatchee")
str(wenatcheeRecord)
wenatcheeID <- wenatcheeRecord$locationID
locationTbl <- table_updateSingleRecord(
locationTbl,
locationList = list(
locationID = wenatcheeID,
locationName = "Wenatchee-Fifth St"
)
)
# Look at the new record
locationTbl %>%
dplyr::filter(city == "Wenatchee") %>%
str()
Run the code above in your browser using DataLab