如何在R rmarkdown中循环创建分页表?

How to create paged tables in a loop in R rmarkdown?

提问人:Simon Harmel 提问时间:10/31/2023 最后编辑:Simon Harmel 更新时间:11/1/2023 访问量:31

问:

下面我尝试在我的循环中在每个图下面显示一个paged_table

但是表格根本没有显示出来。我想知道是否有办法在 Rmarkdown 中实现这一目标?

(我愿意使用任何其他软件包。

---
title: How to loop paged tables in Rmarkdown?
output:
  html_document:
    df_print: paged
---
   ```{r, echo=FALSE}

library(knitr)
library(rmarkdown)
    ```
 ```{r,echo=FALSE, results='asis', rows.print=2}

lapply(unique(cars$speed), \(i){
  
cat(paste0("\n\n## ", i, "\n")) ## Writes new sections

Dat <- subset(cars, speed == i)

paged_table(Dat)  ## These paged tables don't show!

})
    ```

HTML R-Markdown Knitr Kable

评论


答:

1赞 user2554330 11/1/2023 #1

如果用 this 替换该行,它似乎有效:paged_table(Dat)

cat(rmarkdown:::paged_table_html(paged_table(Dat)))

使用内部函数通常是一个有点坏的主意,但我找不到另一种方法来让它输出你想要的东西。这不包括通常由 添加的依赖项,因此您需要在文档中至少有一个常规项,或者执行更多工作以其他方式获取依赖项。rmarkdownrmarkdown:::paged_table_htmlrmarkdown:::print.paged_dfpaged_table()

必须有一种更清洁的方法来做到这一点。希望其他人会发布它!