在R Markdown自定义函数中返回多个gt表格的方法咨询

在R Markdown里用自定义函数返回多个gt表格时，直接返回列表会导致HTML文档显示格式化代码而非渲染好的表格，仅能成功输出单个表格。以下是几种可行的解决办法：

方法1：使用gt_group()组合表格 #

gt包自带的gt_group()函数可以将多个gt表格组合成一个表格组，返回后能正常渲染所有表格，还能保留每个表格的独立样式。

library(gt)
df <- data.frame(a=1:5, b=c("a", "c", "a", "c", "c"))

return_multiple <- function(data) {
  tab1 <- df %>% gt() %>% tab_header(title = "表格1")
  tab2 <- df %>% gt() %>% tab_header(title = "表格2")
  
  # 组合为表格组返回
  gt_group(tab1, tab2)
}

return_multiple(df)

方法2：用htmltools::tagList()包装表格 #

借助htmltools包的tagList()，可以把多个gt对象包装成HTML标签列表，R Markdown会自动识别并渲染其中的表格内容。

library(gt)
library(htmltools)
df <- data.frame(a=1:5, b=c("a", "c", "a", "c", "c"))

return_multiple <- function(data) {
  tab1 <- df %>% gt() %>% tab_header(title = "表格1")
  tab2 <- df %>% gt() %>% tab_header(title = "表格2")
  
  # 用tagList包装后返回
  tagList(tab1, tab2)
}

return_multiple(df)

方法3：函数内直接打印表格（需设置chunk选项） #

如果不需要返回组合对象，可以在函数内部直接打印每个表格，但要确保对应的R Markdown代码块开启results='asis'选项，这样才能正确渲染表格。

首先设置代码块选项：

{r, results='asis'}

然后编写函数：

library(gt)
df <- data.frame(a=1:5, b=c("a", "c", "a", "c", "c"))

return_multiple <- function(data) {
  tab1 <- df %>% gt() %>% tab_header(title = "表格1")
  tab2 <- df %>% gt() %>% tab_header(title = "表格2")
  
  # 直接打印表格，添加换行避免重叠
  print(tab1)
  cat("\n\n")
  print(tab2)
}

return_multiple(df)

为什么返回列表不行？ #

gt表格本质是带有特殊属性的HTML对象，直接放在列表中返回时，R Markdown会默认输出列表的结构信息（也就是你看到的格式化代码），而不会自动渲染其中的HTML内容，因此需要用上述专门的方法来处理多个gt表格。

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