傳回 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))