caps <- NULL
.onLoad <- function(libname, pkgname) {
## Not in RCloud? Return silently
if (! requireNamespace("rcloud.support", quietly = TRUE)) return()
path <- system.file(
package = "rcloud.jupyter.notebooks",
"javascript",
"rcloud.jupyter.notebooks.js"
)
caps <<- rcloud.support::rcloud.install.js.module(
"rcloud.jupyter.notebooks",
paste(readLines(path), collapse = '\n')
)
ocaps <- list(
importIpynb = makeOc(importIpynb),
exportIpynb = makeOc(exportIpynb)
)
if (!is.null(caps)) caps$init(ocaps)
}
makeOc <- function(x) {
do.call(base::`:::`, list("rcloud.support", "make.oc"))(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.