context("getReactive/basics")
test_that("getReactive", {
setReactive(id = "x_1", value = 10)
expect_equal(getReactive(id = "x_1"), 10)
expect_is(res <- getReactive(id = "x_1", hidden = TRUE),
"ReactiveObject.S3")
expect_equal(getFromRegistry(id = "x_1"), res)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.