R/utils.R

In mrc-ide/hintr2: Reimplementation of hintr using pkgapi

hintr2_file <- function(...) {
  system.file(..., package = "hintr2", mustWork = TRUE)
}

schema_root <- function() {
  hintr2_file("schema")
}

scalar <- function(val) {
  if (inherits(val, "scalar")) {
    val
  } else {
    jsonlite::unbox(val)
  }
}

json_null <- function() {
  null <- "null"
  class(null) <- "json"
  null
}

is_pkgapi_error <- function(e) {
  inherits(e, "pkgapi_error")
}