Nothing
context("table_updateSingleRecord")
test_that("table_updateSingleRecord() works", {
locationTbl <- get(data("wa_monitors_500"))
wenatcheeRecord <- locationTbl %>% dplyr::filter(city == "Wenatchee")
wenatcheeID <- wenatcheeRecord$locationID
wenatcheeOldName <- wenatcheeRecord$locationName
testTbl <- table_updateSingleRecord(
locationTbl,
locationList = list(
locationID = wenatcheeID,
locationName = "Wenatchee-Fifth St"
)
)
wenatcheeNewName <-
testTbl %>%
dplyr::filter(city == "Wenatchee") %>%
dplyr::pull(locationName)
expect_equal(wenatcheeOldName, "us.wa_c26mvd")
expect_equal(wenatcheeNewName, "Wenatchee-Fifth St")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.