如何在R的cli包中组合多种ANSI样式防御规则？

数据老陈

2026-6-1

在R cli包中实现多样式精准防御的方案

问题概述

需要实现自定义样式函数sty_0()，使其同时防御斜体和删除线样式，且不影响后续粗体样式的生效。期望调用"Example text" |> sty_0() |> sty_1()（其中sty_1()包含粗体、斜体、删除线样式）后，最终仅输出粗体文本。

已知cli包的style_no_*()系列函数单独使用时可生效，但通过combine_ansi_styles()组合多个防御规则时，仅最后一个规则生效，无法同时实现多样式防御；而style_reset()会清除所有样式，不符合精准防御的需求。

解决方案

由于combine_ansi_styles()对style_no_*的组合存在局限，可通过以下两种符合cli规范、便于维护的方案实现需求：

方法1：封装链式防御调用

创建sty_0()函数，在内部依次应用多个防御规则，确保每个规则都生效：

library(cli)

# 自定义防御函数：同时禁用斜体和删除线的样式生效
sty_0 <- function(x) {
  x |> 
    style_no_italic() |> 
    style_no_strikethrough()
}

# 示例目标样式函数：包含粗体、斜体、删除线
sty_1 <- combine_ansi_styles(style_bold, style_italic, style_strikethrough)

# 测试调用，最终仅输出粗体文本
"Example text" |> sty_0() |> sty_1()

该方案逻辑直观，便于维护——后续如需新增或调整防御样式，只需在函数内增减对应的style_no_*()调用即可。

方法2：基于ANSI序列的自定义处理（进阶）

如果需要更底层的控制，可直接操作ANSI样式重置序列，手动组合多个防御规则：

sty_0 <- function(x) {
  # 获取斜体和删除线的重置ANSI序列
  no_italic_seq <- style_no_italic("")
  no_strike_seq <- style_no_strikethrough("")
  # 将重置序列与目标文本结合
  paste0(no_italic_seq, no_strike_seq, x)
}

这种方法灵活性更高，但需要对ANSI样式序列有基础了解，适合高度定制的场景。