checkState <- function(name) {
object <<- get(name, envir = .GlobalEnv)
state <<- stateManager$restoreState(name)
if (!all.equal(state, object)) return(FALSE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.