Rmd文件knit输出HTML时如何正确渲染表格单元格内换行

问题场景 #

• 读取包含Excel手动换行（Alt+Enter插入）的CSV文件生成dataframe时，RStudio数据框悬停预览可正常显示换行效果，但非悬停状态、knit导出HTML时，单元格内的换行符会直接显示为字面量\n，无实际换行效果。
• 实现限制：仅允许通过直接打印dataframe、生成reactable交互表两种方式实现，不能引入其他表格渲染组件。
• 测试用复现数据：

multiline_df <- data.frame(User = c("DesWreck97", "T7tUrNoUt", "DstrctrOfDoom", "YAML_Hamilton"),
                           QualityPoints = c(7.80, 9.56, 8.87, 5.49),
                           Notes = c("1. Release code has been validated.\n2. Do not provided access without new confirmed key.", "1. Release code has not been validated.", "N/A", "1. Non-conforming profile structure; DSA.\n2. Three functions applied in last 60-day period.\n3. No user contact. Account primed for deletion at n < 180 days."),
                           ReturnValue = c("A", "A", "T", "A"))

实现方法 #

方法1：直接打印dataframe #

利用knitr默认的kable渲染逻辑完成换行，操作步骤：

1. 在Rmd的YAML头中配置HTML输出的dataframe打印方式为kable：

output:
  html_document:
    df_print: kable

2. 打印前将单元格内的换行符\n替换为HTML换行标签<br/>，打印时关闭HTML转义即可：

```{r, echo=FALSE}
# 替换所有文本列的换行符
render_df <- multiline_df
render_df[] <- lapply(render_df, function(x) gsub("\\n", "<br/>", x))
# 关闭HTML转义打印
knitr::kable(render_df, escape = FALSE)
```

方法2：生成reactable交互表（效果与悬停预览完全一致） #

reactable不需要手动替换换行符，只需要通过CSS让文本内的换行符生效即可，渲染效果和RStudio悬停预览完全匹配，同时保留表格排序、筛选等交互能力：

```{r, echo=FALSE}
library(reactable)
reactable(
  multiline_df,
  # 全局配置所有单元格识别换行符
  defaultColDef = colDef(
    style = list(whiteSpace = "pre-line")
  )
)
```

如果只需要给指定列开启换行（比如仅Notes列需要换行），单独配置对应列即可：

reactable(
  multiline_df,
  columns = list(
    Notes = colDef(style = list(whiteSpace = "pre-line"))
  )
)

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