如何让huxtable的RTF输出列宽匹配HTML输出列宽？

使用huxtable生成表格时，HTML输出会自动根据内容宽度调整列宽，显示效果自然合理；但RTF输出默认所有列宽均等，当表格里有长短差异大的列时，显示效果很差。用下面的代码就能直观看到两种输出的差异：

library(huxtable)

long <- rep("LONGLONGLONGLONG", 5)
short <- rep("SHORT", 5)
df <- data.frame(LNGH = long, SHRTH = short)

myhux <- as_hux(df)

# 生成默认RTF（所有列宽一致）
quick_rtf(myhux, file = "myhux.rtf", open = FALSE)
# 生成HTML（自动匹配内容调整列宽）
quick_html(myhux, file = "myhux.html", open = FALSE)

虽然可以用set_col_width()手动指定列宽比例，但要批量处理大量表格的话，手动设置效率太低，得要像HTML那样开箱即用的自动适配方案。

自动适配的解决方案 #

写个辅助函数，自动计算每列内容的最大字符宽度，再按比例分配列宽，就能实现类似HTML的自动适配效果：

library(huxtable)
library(magrittr)

# 自动计算并设置列宽的函数
auto_set_col_width <- function(hux_table) {
  # 计算每列内容的最大字符数
  col_max_widths <- apply(hux_table, 2, function(col) {
    max(nchar(as.character(col)), na.rm = TRUE)
  })
  # 换算成各列占总宽度的比例
  width_ratios <- col_max_widths / sum(col_max_widths)
  # 给表格设置列宽
  hux_table %>% set_col_width(width_ratios)
}

# 单个表格的自动适配示例
myhux_auto <- myhux %>% auto_set_col_width()
quick_rtf(myhux_auto, file = "myhux_auto.rtf", open = FALSE)

# 批量处理多个表格的示例
# 先把要处理的huxtable对象放进列表
table_list <- list(
  myhux,
  as_hux(mtcars[1:5, 1:3]),
  as_hux(iris[1:5, ])
)
# 批量应用自动列宽设置
table_list_auto <- lapply(table_list, auto_set_col_width)
# 批量导出RTF文件
mapply(function(hux, idx) {
  quick_rtf(hux, file = paste0("table_", idx, "_auto.rtf"), open = FALSE)
}, table_list_auto, seq_along(table_list_auto))

补充说明 #

• 这个函数会根据每列内容的最大字符数分配列宽，内容长的列会自动拿到更大的宽度；
• 就算列里有NA值也不影响，计算时会自动忽略；
• 批量处理时，把所有要处理的huxtable对象放进列表，用lapply批量跑一遍就行，不用一个个手动设置列宽。

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