tests/r_cmd_call.R

In HenrikBengtsson/rcli: R Command-Line Interface Extras

library(rcli)

Sys.setenv(R_CMD = TRUE)
options(
  rcli.debug.stdin = "tools:::.check_packages()",
  rcli.done.action  = "return"
)

bfr0 <- utils::capture.output({
  rcli:::rcli_help()
})
cat(bfr0, sep = "\n")

args <- c("--as=rcli", "--help")
bfr <- utils::capture.output({
  res <- r_cmd_call(args = args, unload = FALSE, debug = TRUE)
})
print(res)
cat(bfr, sep = "\n")
bfr <- grep("* using --as=rcli", bfr, invert = TRUE, value = TRUE)
stopifnot(all(bfr == bfr0))

options(
  rcli.debug.stdin = NULL,
  rcli.done.action = NULL
)