如何解决将 DT 表合并到 Rmd Markdown 文档中
我正在使用列表来收集由应包含在最终 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) }
```
由 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)
)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。