R语言：Notebook中table1输出正常，Markdown导出HTML格式异常

问题场景 #

运行以下R代码：

for(provider in unique(summary_data$Provider.Resource)){
  provider_appts = summary_data[summary_data$Provider.Resource == provider,]
  output_table = table1(~ Type | Appt.Status*Appt.Len, data=provider_appts, caption = provider)
  as.data.frame(output_table)
}

• 在R Notebook中运行：能得到整洁的table1表格，但会附带可点击的shiny.tag表格列表
• 在R Markdown中运行：输出的是原始HTML代码，不是预期的可视化表格
• 尝试过Kable、kable_styling等方法，均未解决问题

原因分析 #

• table1包生成的表格本质是shiny.tag对象（即结构化的HTML代码），不是普通的数据框。用as.data.frame()转换会破坏HTML格式，把标签结构拆成无意义的文本。
• R Notebook会自动识别并渲染shiny.tag对象为可视化表格，但同时会默认输出对象的结构列表；而R Markdown默认只会打印对象的文本形式（也就是原始HTML代码），不会自动渲染成表格。

解决办法 #

1. 直接输出table1对象（不要转成data.frame） #

把循环里的as.data.frame(output_table)改成直接打印对象，让环境自动处理渲染：

for(provider in unique(summary_data$Provider.Resource)){
  provider_appts = summary_data[summary_data$Provider.Resource == provider,]
  output_table = table1(~ Type | Appt.Status*Appt.Len, data=provider_appts, caption = provider)
  print(output_table)  # 直接打印shiny.tag对象，触发渲染
}

2. 批量渲染Markdown中的表格 #

如果是在R Markdown文档中，用htmltools::tagList()打包所有表格，让knitr自动渲染成可视化内容：

library(htmltools)
# 用lapply生成所有表格的shiny.tag列表
tables_list <- lapply(unique(summary_data$Provider.Resource), function(provider) {
  provider_appts = summary_data[summary_data$Provider.Resource == provider,]
  table1(~ Type | Appt.Status*Appt.Len, data=provider_appts, caption = provider)
})
# 批量渲染输出
tagList(tables_list)

3. 关闭Notebook中的对象列表输出 #

在Notebook的代码块开头添加以下设置，让R只渲染表格，不打印shiny.tag的结构列表：

options(htmltools.print.html = TRUE)

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