R/server.R

In cliapp: Create Rich Command Line Applications

Defines functions cli_server_callr_handler cli_server_default_safe cli_server_default

cli_server_default <- function(msg) {
  cli_server_default_safe(msg)
}

cli_server_default_safe <- function(msg) {
  type <- as.character(msg$type)[1]
  app <- default_app() %||% start_app()
  do.call(app[[type]], msg$args)
}

cli_server_callr_handler <- function(msg) {
  cli_server_default(msg)
}

Try the cliapp package in your browser