r-lib / cli
1

2
cli_server_default <- function(msg) {
3 1
  cli_server_default_safe(msg)
4
}
5

6
cli_server_default_safe <- function(msg) {
7 1
  type <- as.character(msg$type)[1]
8 1
  app <- default_app() %||% start_app(.auto_close = FALSE)
9 1
  do.call(app[[type]], msg$args)
10
}
11

12
cli_server_callr_handler <- function(msg) {
13 0
  cli_server_default(msg)
14
}

Read our documentation on viewing source code .

Loading