将 DT 表合并到 Rmd Markdown 文档中

编程问答 2022-05-28

问题描述

我正在使用列表来收集由应包含在最终 Rmd markdown html 文档中的函数生成的许多 QC 图和表格。就我所见，该代码按预期工作。生成并收集所有图和表。并且在执行整个脚本时，它们也会正确地打印在源代码窗口中。

但是，当我编织文档时，只有图以我期望的方式包含在内，而数据表则没有。我不确定为什么以及如何解决这个问题。

下面是一个玩具示例。为这篇很长的帖子道歉，但我想展示不同的行为。

源窗口中单个图和表的输出：

library(DT)

plot(cars)


datatable(cars)

从列表中输出图表和表格：

library(DT)

qc_tables <- list()
qc_plots <- list()

qc_plots[[length(qc_plots) + 1]] <- plot(cars)
qc_plots[[length(qc_plots) + 1]] <- plot(iris)
for (p in qc_plots) { print(p) }

qc_tables[[length(qc_tables) + 1]] <- datatable(cars)
qc_tables[[length(qc_tables) + 1]] <- datatable(iris)
for (p in qc_tables) { print(p) }

源窗口输出截图：

现在编织和 html 输出：

---
title: "R Notebook"
output:
  html_document
---

# Direct output of plots and Data.Tables

```{r}
library(DT)

plot(cars)
datatable(cars)

plot(iris)
datatable(iris)

```

# Output of plots and Data.Tables from lists

```{r}
library(DT)

qc_tables <- list()
qc_plots <- list()

qc_plots[[length(qc_plots) + 1]] <- plot(cars)
qc_plots[[length(qc_plots) + 1]] <- plot(iris)

for (p in qc_plots) { print(p) }

qc_tables[[length(qc_tables) + 1]] <- datatable(cars)
qc_tables[[length(qc_tables) + 1]] <- datatable(iris)

for (p in qc_tables) { print(p) }
```

直接输出的 Markdown 文件：

enter image description here

通过列表生成 Markdown 输出时丢失：

enter image description here

由 reprex package (v0.3.0) 于 2021 年 1 月 27 日创建

解决方法

我在这里找到了帮助： https://github.com/rstudio/DT/issues/67

这对我有用，它不是循环，而是生成了所需的输出。
块在顶部：

library(knitr)
library(DT)

现在有两个选项，首先，如果您的数据在数据框中并且您希望以相同的方式对其进行格式化：

dflist <- list(iris,cars)
htmltools::tagList(
  lapply(dflist,datatable)
)

其次，如果如评论中指出的那样，您提前格式化数据表并将它们放在列表中：

qc_tables <- list()
qc_tables[[length(qc_tables) + 1]] <- datatable(cars)
qc_tables[[length(qc_tables) + 1]] <- datatable(iris)
htmltools::tagList(
  lapply(qc_tables,print)
)

结果在 Rmd： DT results