vignettes/_helpers.R

In plumber2: Easy and Powerful Web Servers

library(plumber2)

code_chunk <- function(output, language=""){
  cat(paste0("```",language,"\n"))
  output <- switch(
    language,
    json = jsonlite::prettify(output, indent = 2),
    output
  )
  cat(output)
  cat("\n```\n")
}

# #' Include an external R file with syntax highlighting in the doc
# include_r <- function(file){
#   code_chunk(paste0(readLines(file), collapse="\n"), language="r")
# }

#* Serialize an object into JSON the same way that plumber would.
#* This way if the logic changes we consolidate all references to here.
json_serialize <- function(obj){
  jsonlite::toJSON(obj, auto_unbox = FALSE, pretty = TRUE)
}

`%||%` <- rlang::`%||%`