R/onload.R

In att/rcloud.jupyter.notebooks: Jupyter notebook support for RCloud

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)
}