如何在编织后的HTML文档中显示列表内的DT::datatable？

我有一个可返回多个表格的函数，希望将这些表格全部以DT::datatable形式返回。但当表格处于列表中时，R无法将它们在编织后的HTML文档中展示，仅在RMarkdown文件中可见。

解决方法 #

方法1：遍历列表逐个输出表格 #

调用函数获取表格列表后，通过循环遍历列表中的每个DT对象并逐个输出，即可让表格在HTML文档中正常显示。

完整RMarkdown代码示例：

---
title: "显示列表中的DT表格"
output: html_document
---

knitr::opts_chunk$set(echo = TRUE)
library(tidyverse)
library(DT)

myfunc <- function(dataset){
  return_list <- list()
  # 示例生成两个DT表格
  return_list$完整表格 <- DT::datatable(dataset)
  return_list$前5行表格 <- DT::datatable(head(dataset, 5))
  return(return_list)
}

# 获取表格列表
table_list <- myfunc(mtcars)

# 遍历输出每个表格
for (tab in table_list) {
  print(tab)
}

方法2：使用htmltools::tagList包装列表 #

借助htmltools包的tagList函数，可直接将表格列表转换为RMarkdown可识别的HTML标签集合，无需手动循环即可批量渲染所有表格。

代码示例：

library(htmltools)
library(DT)

myfunc <- function(dataset){
  return_list <- list()
  return_list$完整表格 <- DT::datatable(dataset)
  return_list$前5行表格 <- DT::datatable(head(dataset, 5))
  return(return_list)
}

# 用tagList包装列表并输出
tagList(myfunc(mtcars))

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