R语言中长文本向量经HTML函数输出时如何实现自动换行？

• 方法1：使用基础包的strwrap()函数（最通用的控制台/纯文本场景方案）
  strwrap()是R内置专门用于文本折行的函数，可通过width参数指定每行最大字符数，示例代码如下：

  # 定义长文本向量
  asd <- c('ffffffffffffffffffffffffffffffffffsdaa')
  # 按每行最多20个字符折行，返回折行后的字符向量
  wrap_text <- strwrap(asd, width = 20)
  # 直接打印换行效果
  cat(wrap_text, sep = "\n")
  

  运行后输出效果和你预期一致：

  fffffffffffffffffff
  ffffffffffsdaa
  

• 方法2：HTML输出场景添加CSS样式
  你使用HTML()函数输出无换行是因为HTML默认不会给连续无空格的长文本自动折行，给文本包裹元素添加强制折行的CSS属性即可，示例代码如下：

  library(htmltools)
  asd <- c('ffffffffffffffffffffffffffffffffffsdaa')
  # 自定义元素宽度，添加强制折行样式
  HTML(paste0('<div style="width:150px;word-break:break-all;">', asd, '</div>'))
  

• 方法3：正则插入换行符
  如果你需要直接在原文本中固定位置插入换行符，可通过正则替换实现：

  # 每20个字符插入一个换行符
  asd_wrap <- gsub("(.{20})", "\\1\n", asd)
  cat(asd_wrap)
  

内容的提问来源于stack exchange，提问作者manu p