如何用R的cli包实现cli_warn可变长度项目符号警告列表？

问题场景 #

需要用cli包输出带项目符号的警告列表，当警告项长度未知时，无法像固定长度那样逐个指定"x"键，导致输出没有正确的项目符号格式。

解决方案 #

核心是为每个动态生成的警告项都赋予相同的键（比如"x"），通过创建命名向量实现：先将警告项向量的所有名称设为"x"，再与开头的提示消息组合后传入cli_warn()。

修正后的代码示例 #

library(cli)
library(tibble)

beep_boop <- function(msg) {
  if (!inherits(msg, "character")) {
    # 为每个警告项设置"x"键
    warn_items <- setNames(letters[1:3], rep("x", length(letters[1:3])))
    cli_warn(c("Oh no!", warn_items))
  }
  as_tibble(mtcars)
}

# 测试函数
beep_boop(3)

输出效果 #

Warning: Oh no!
✖ a
✖ b
✖ c
# A tibble: 32 × 11
     mpg   cyl  disp    hp  drat    wt  qsec    vs    am  gear  carb
   <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
 1  21       6  160    110  3.9   2.62  16.5     0     1     4     4
 2  21       6  160    110  3.9   2.88  17.0     0     1     4     4
 3  22.8     4  108     93  3.85  2.32  18.6     1     1     4     1
# … with 29 more rows

扩展说明 #

如果警告项是动态生成的（比如长度不确定的向量），只需要将letters[1:3]替换为你的动态向量即可，setNames()和rep("x", length(...))会自动为每个元素设置对应的项目符号键：

# 动态长度示例
dynamic_warnings <- c("无效输入", "格式错误", "参数缺失", "权限不足")
warn_items <- setNames(dynamic_warnings, rep("x", length(dynamic_warnings)))
cli_warn(c("检测到多个问题:", warn_items))

内容的提问来源于stack exchange，提问作者Mark Rieke