返回 knitted HTML 文档列表中的一系列 DT::datatables

Question

我有一个返回一系列表的函数。我想将它们全部作为 DT::datatable 返回。但是，当这些表位于列表中时，我无法让 R 返回这些表。它们出现在 RMarkdown 文件中，但不出现在 knitted HTML 文件中。是否可以让表格出现在 HTML 文档中？

---
title: "Untitled"
output: html_document
---

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

myfunc <- function(dataset){
  
  return_list <- list()
  
  mytab <- DT::datatable(dataset)
  
  return_list$mytab <- mytab
  
  return(return_list)
}

myfunc(mtcars)

---

表格出现在 RMarkdown 文件中：

但不会出现在针织HTML文件中：

Answer 1

有两种方法可以做到这一点：

如果你事先知道密钥，就用密钥调用即可

myfunc(mtcars)$mytab

如果您计划制作更长的列表并希望打印列表中的所有表格，请使用 {htmltools} 中的 tagList

htmltools::tagList(myfunc(mtcars))