如何在R中使用Pagedown和Kable来打印表格，然后分页

问题描述

几天前我一直在挠头。

我正在使用pagedown包编写带有可变长度表的报告。我最熟悉kableExtra表，并且对它满意。但是，由于长度是可变的，并且longtable选项（据我所知）是面向乳胶的，而不是html分页的选项，因此，我试图对表进行分组和打印。一个简化的示例是每10行写入一个表并插入等效的分页符。

这是一个最小的示例。在此示例中，内容可能会流失空白，这很好，我只关心垂直间距。

---
output: 
  pagedown::html_paged:
    toc: false
---

```{r setup,include=FALSE}
knitr::opts_chunk$set(echo = FALSE)

library(ggplot2)
library(kableExtra)
library(dplyr)
```

```{r,results='asis'}
tabs <- 
  ggplot2::mpg %>%
    dplyr::group_by(grp = ceiling(row_number()/20)) %>%
    summarise(tables = list(
      kable(cur_data()) %>%
        kable_styling() %>%
        collapse_rows(1,valign = 'top'))) %>%
      select(tables) %>%
      unlist()
  
for (i in 1:length(tabs)) {
  cat(tabs[i])
  cat('\newpage  ')
}
```

解决方法

通常，您在自定义样式表中为元素定义分页符。用knitr::kable生成的表是经典的table HTML元素。如果我们希望在每个表之后都有一个分页符，则可以在

这样的样式表（例如custom.css）中对其进行定义

table {
  font-size: 0.5em;  /* table width would extent the page margins otherwise */
  break-after: page; /* move the content following a table to the next page */
}

在我们的rmarkdown文档中，我们仅需包括其他CSS样式：

---
output: 
  pagedown::html_paged:
    toc: false
    css: [default,default-page,default-fonts,custom.css]
---

请注意，我们首先包含了三个默认样式表，然后是我们的添加。

完整的文档如下所示：

---
output: 
  pagedown::html_paged:
    toc: false
    css: [default,test.css]
---
  
```{r setup,include=FALSE}
knitr::opts_chunk$set(echo = FALSE)

library(ggplot2)
library(kableExtra)
library(dplyr)
library(knitr)
```

```{r,results = 'asis',message=F,warning=F}
tabs <- 
  ggplot2::mpg %>%
  dplyr::group_by(grp = ceiling(row_number()/20)) %>%
  summarise(tables = list(
    kable(cur_data()) %>%
      kable_styling() %>%
      collapse_rows(1,valign = 'top'))) %>%
  select(tables) 

invisible(lapply(tabs$tables,cat))
```

我使用invisible隐藏lapply的不必要输出，而cat使用ListView.builder()评估每个列表项。

结果如下：

,

好的，所以我在定义导致分页符等的css规则时遇到了麻烦。我认为这与渲染pagedown文档时paged.js的功能有关。

Pagedown生成css类.page-break-before，您猜到它会呈现分页符。

我的解决方案是在for循环内容周围包装一个类为page-break-before的div。

for (i in 1:length(tabs)) {
  htmltools::HTML(
    cat(
      paste0(
        div(class = 'page-break-before',tabs[i])
        )
      )
    )
}

让pagedown为我处理分页符。