context_env <- new_environment()
from_context <- function(what){
context_env[[what]] %||% abort(glue("{expr} should only be called in a data context", expr = deparse(sys.call(-1))))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.