#' @importFrom shiny reactiveVal getDefaultReactiveDomain
init <- function(name, session = getDefaultReactiveDomain()){
session$userData[[name]] <- reactiveVal(0)
}
trigger <- function(name, session = getDefaultReactiveDomain()){
session$userData[[name]](
session$userData[[name]]() + 1
)
}
watch <- function(name, session = getDefaultReactiveDomain()){
session$userData[[name]]()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.