.onLoad <- function(libname, pkgname) {
assign(".result_env", new.env(parent = emptyenv()), envir = asNamespace(pkgname))
}
.onUnload <- function(libpath) {
magic_free()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.