R/zzz.R

In reside-ic/porcelain: Turn a Package into an HTTP API

##' @importFrom R6 R6Class
##' @importFrom plumber plumber
NULL


cache <- new.env()

.onLoad <- function(...) { # nolint
  ## nocov start
  cache$plumber_1_0_0 <- utils::packageVersion("plumber") >= "0.9.9"
  cache$v8 <- V8::new_context()
  cache$v8$source(system_file("utils.js", package = "porcelain"))
  cache[[LOG_FILTER_REQUEST_ID_NAME]] <- lgr::FilterInject$new(
    package_id = NA_character_)
  ## nocov end
}


## Compatibility:
plumber_base_class <- function() {
  get(plumber_base_class_name(), asNamespace("plumber"))
}


plumber_base_class_name <- function() {
  if (cache$plumber_1_0_0) "Plumber" else "plumber"
}


plumber_path_args <- function(req) {
  if (cache$plumber_1_0_0) {
    req$argsPath
  } else {
    req$args[seq_len(length(req$args) - 2L)]
  }
}