\dontrun{
## Set reactives so registry contains elements //
id_1 <- "x_1"
id_2 <- "x_2"
where <- environment()
setReactive(id = id_1, value = 10)
setReactive(id = id_2, value = function() {
.ref_1 <- get("x_1", envir = where)
})
## Comput UIDs //
uid_1 <- computeObjectUid(id = id_1, where = where)
uid_2 <- computeObjectUid(id = id_2, where = where)
## Inspect current state of registry //
registry <- getRegistry()
showRegistry()
exists(uid_1, registry)
exists(uid_2, registry)
## Remove //
rmFromRegistryByUid(uid = uid_1)
exists(uid_1, registry)
rmFromRegistryByUid(uid = uid_2)
exists(uid_2, registry)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.