File: server.R

package info (click to toggle)
r-cran-cli 3.6.5-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 4,300 kB
  • sloc: ansic: 16,412; cpp: 37; sh: 13; makefile: 2
file content (14 lines) | stat: -rw-r--r-- 319 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 

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(.auto_close = FALSE)
  do.call(app[[type]], msg$args)
}

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