R Markdown转HTML时如何强制表格单元格内容单行显示

核心原因 #

HTML表格默认的浏览器样式会对单元格内长文本自动折行，Kable、Flextable、Huxtable等包的列宽设置仅定义单元格宽度，没有覆盖默认的折行规则，才会出现列宽参数失效、内容乱换行的问题。

通用全局方案（适配所有表格包） #

直接在R Markdown文档的任意位置（建议放在文档开头）插入以下CSS代码块，全局禁止所有表格单元格自动折行，后续所有表格输出都不会再出现乱换行问题，配合滚动框即可正常显示宽表：

table td, table th {
  white-space: nowrap;
}

加完这段样式后，你原本在各个表格包里设置的列宽、字体格式等参数都会正常生效。

单表格定制方案 #

如果不想全局修改所有表格样式，可以针对使用的表格包单独给单元格加不折行属性：

KableExtra 适配 #

在column_spec()中通过extra_css参数传入不折行的CSS规则即可，修正后的代码如下：

library(kableExtra)
table = as.data.frame(matrix(rep("value [value1 - value2]",20), ncol = 10))

kbl(table) %>%
  kable_paper() %>%
  column_spec(1:ncol(table), 
              width = "3.5cm", 
              bold = TRUE, 
              italic = TRUE,
              extra_css = "white-space: nowrap;") %>%
  scroll_box(width = "1000px", height = "500px")

Flextable 适配 #

通过set_css_properties()给所有单元格加上不折行规则，修正后的代码如下：

library(flextable)
tb = flextable(table) %>% 
  flextable::width(width = 3.5) %>%
  set_css_properties(part = "all", `white-space` = "nowrap")
knit_print(tb)

Huxtable的适配逻辑相同，给目标单元格添加white-space: nowrap的CSS属性即可生效。

使用提示 #

• 加了white-space: nowrap后，单元格内容会始终在一行展示，不会被强制拆成多行
• 配合横向滚动容器使用时，不会出现表格溢出页面、显示不全的问题
• 如果需要某一列保留自动换行，单独给对应列加white-space: normal的样式即可覆盖全局规则

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