R/onload.R

In att/rcloud.rmd: Import and Export RStudio Notebooks into/from RCloud

caps <- NULL

.onLoad <- function(libname, pkgname) {

  ## Not in RCloud? Return silently
  if (! requireNamespace("rcloud.support", quietly = TRUE)) return()

  path <- system.file(
    package = "rcloud.rmd",
    "javascript",
    "rcloud.rmd.js"
  )

  caps <<- rcloud.support::rcloud.install.js.module(
    "rcloud.rmd",
    paste(readLines(path), collapse = '\n')
  )

  ocaps <- list(
    importRmd = make_oc(importRmd),
    exportRmd = make_oc(exportRmd)
  )

  if (!is.null(caps)) caps$init(ocaps)
}

make_oc <- function(x) {
  do.call(base::`:::`, list("rcloud.support", "make.oc"))(x)
}