Nothing
context("test incremental_refresh_dimension")
test_that("incremental_refresh_dimension works", {
d <- st_mrs_age_test$dimension$where
d$city[3] <- "test"
d <-
incremental_refresh_dimension(st_mrs_age_test$dimension$where, d)
expect_equal(sort(d$city), c("Bridgepor", "Bridgeport", "Tacoma", "test"))
expect_equal(d$where_key, 1:4)
})
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.