如何为带有cli消息的R函数实现quiet=TRUE参数的最优方法？

方法1：利用cli内置的cli.quiet选项（推荐） #

cli包自带cli.quiet全局选项，设为TRUE时会自动屏蔽所有cli输出。结合withr::local_options()可以临时修改选项，函数执行完毕后自动还原原有设置，不会污染全局环境：

library(cli)
library(withr)

name <- function(variables, quiet = FALSE) {
  if (quiet) {
    local_options(list(cli.quiet = TRUE))
  }
  
  cli_alert_info("example1")
  cli_alert_info("example2")
  cli_alert_info("example3")
  cli_alert_info("example4")
}

测试效果：

• 调用name(variables = NULL, quiet = FALSE)会正常输出所有消息
• 调用name(variables = NULL, quiet = TRUE)则完全无cli输出

方法2：用suppressMessages封装核心逻辑 #

若不想依赖withr包，可将所有cli调用封装到内部函数，再根据quiet参数决定是否用suppressMessages抑制输出（指定cliMessage类）：

library(cli)

name <- function(variables, quiet = FALSE) {
  core_ops <- function() {
    cli_alert_info("example1")
    cli_alert_info("example2")
    cli_alert_info("example3")
    cli_alert_info("example4")
  }
  
  if (quiet) {
    suppressMessages(core_ops(), classes = "cliMessage")
  } else {
    core_ops()
  }
}

这种方式通过内部函数避免了代码重复，逻辑更清晰。

方法3：自定义cli消息包装函数 #

如果需要更灵活的控制（比如区分消息类型），可以编写一个简单的包装函数，根据quiet参数决定是否输出：

library(cli)

name <- function(variables, quiet = FALSE) {
  cli_info <- function(msg) {
    if (!quiet) cli_alert_info(msg)
  }
  
  cli_info("example1")
  cli_info("example2")
  cli_info("example3")
  cli_info("example4")
}

内容的提问来源于stack exchange，提问作者Bruno Mioto