为什么在rmarkdown循环时datatable不打印？
问题描述：
我正在创建一个动态的rmarkdown文档。最终结果应该为数据中的每个“分类”创建一个标签。每个选项卡都应该有一个来自DT包的数据表，其中打印了数据。下面是我一直使用的代码：为什么在rmarkdown循环时datatable不打印？
---
output: html_document
---
# Setup{.tabset}
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library(knitr)
library(DT)
```
```{r data.setup}
set.seed = 1242
rows = 64
data.1 = runif(rows, 25, 75)
data.2 = runif(rows, .01, 1)
data.3 = runif(rows, 1, 10)
classification = c("A", "B", "C", "D")
df = data.frame(cbind(data.1 = data.1, data.2 = data.2, data.3 = data.3, classification = classification))
df$data.1 = as.numeric(df$data.1)
df$data.2 = as.numeric(df$data.2)
df$data.3 = as.numeric(df$data.3)
```
```{r results= 'asis'}
for(j in levels(df$classification)){
df.j = df[df$classification == j, ]
cat(paste("\n\n## Classification: ", j, "##\n"))
w = datatable(df.j)
#datatable(df.j)
print(w)
}
```
通知我注释掉直接呼叫到DataTable功能，那些没有打印到rmarkdown。调用结果以书面形式生成带有正确选项卡的html文档，但其中没有数据表。此外，数据表格实际上显示在我的RStudio会话中，具有正确的子集。作为一个测试，我尝试使用knitr的kable函数实现目标，并且表格被打印在适当的选项卡中，不幸的是，kable不具备所需的全部功能。
答
这不是一个完整的答案，因为其中一些问题仍然令我困惑，但至少这足以让你走，而我试着去了解更多。
---
output: html_document
---
# Setup{.tabset}
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library(knitr)
library(DT)
```
```{r data.setup}
set.seed <- 1242
rows <- 64
data.1 <- runif(rows, 25, 75)
data.2 <- runif(rows, .01, 1)
data.3 <- runif(rows, 1, 10)
classification <- c("A", "B", "C", "D")
df <- data.frame(cbind(data.1 = data.1, data.2 = data.2, data.3 = data.3, classification = classification))
df$data.1 <- as.numeric(df$data.1)
df$data.2 <- as.numeric(df$data.2)
df$data.3 <- as.numeric(df$data.3)
```
```{r include = FALSE}
# Why, oh why do I need this chunk?
datatable(df)
```
```{r results = 'asis'}
for(j in unique(df$classification)){ # You were using level() here, so your for-loop never got off the ground
df.j <- df[df$classification == j, ]
cat(paste("\n\n## Classification: ", j, "##\n"))
print(htmltools::tagList(datatable(df.j)))
}
第三个块需要这个工作，我还不确定为什么。
答
通过使用Google搜索相同的问题到达此处。这对我有效：https://gist.github.com/ReportMort/9ccb544a337fd1778179。
基本上，生成呈现的Tibbles列表并手动调用knit。
这里是一个工作RMD根据你的榜样，用上面的链接中找到的技术：
---
output: html_document
---
# Setup{.tabset}
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library(knitr)
library(DT)
```
```{r data.setup}
set.seed <- 1242
rows <- 64
data.1 <- runif(rows, 25, 75)
data.2 <- runif(rows, .01, 1)
data.3 <- runif(rows, 1, 10)
classification <- c("A", "B", "C", "D")
df <- data.frame(cbind(data.1 = data.1, data.2 = data.2, data.3 = data.3, classification = classification))
df$data.1 <- as.numeric(df$data.1)
df$data.2 <- as.numeric(df$data.2)
df$data.3 <- as.numeric(df$data.3)
```
```{r include = FALSE}
# prepare a list of 4 sub-dataframes, each corresponding to one classification
df_list <- split(df, df$classification)
```
```{r create-markdown-chunks-dynamically, include=FALSE}
out = NULL
for (c in names(df_list)) {
knit_expanded <- paste0("\n\n## Classification: ", c, "##\n\n```{r results='asis', echo=FALSE}\n\ndatatable(df_list[['", c, "']])\n\n```")
out = c(out, knit_expanded)
}
```
<!--- knit those table chunk statements -->
`r paste(knit(text = out), collapse = '\n')`
+1我一直在寻找甚广的一个简单的解决方案，这是它。请注意，在第三个块中，您可以键入'datatable（df [1，]）'，它仍然可以工作！我不知道@yihui是否知道为什么这是必要的 – bouncyball