context("getFromRegistry/basics")
test_that("getFromRegistry", {
resetRegistry()
obj <- ReactiveObject.S3(id = "x_1", value = 10)
obj$.register()
expect_equal(getFromRegistry(id = "x_1"), getRegistry()[[obj$.uid]])
resetRegistry()
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.