在 Markdown PDF 中，如何在 for 循环的每次迭代后添加分页符？

Question

例如，如果我的数据框是：

 exampledf <- data.frame(column = c("exampletext1", "exampletext2",  "exmapletext3"))

我希望第一页有 "exampletext1"，第二页有 "exampletext2"，等等

\pagebreak 有效：

```{r, echo=FALSE}; exampledf[1,]```
   \pagebreak  
```{r, echo=FALSE} exampledf[2,]```

但是我的数据框太大了，不实用。

我真的需要遍历所有值：

for(i in 1:NROW(exampledf)) {
  single <- exampledf[i]
  strwrap(single, 70))
}

我意识到这是一个奇怪的问题。

Answer 1

您可以将 \newpage 放在 cat 函数中，以便在每次循环迭代后添加一个分页符。该块还需要具有参数 results="asis"。例如，为您做这样的事情：

```{r echo=FALSE, results="asis", warning=FALSE}
library(xtable)

exampledf <- data.frame(column = c("exampletext1", "exampletext2",  "exmapletext3"))

for (i in 1:nrow(exampledf)) {

  # Just added this as another way of displaying a row of data
  print(xtable(exampledf[i, , drop=FALSE]), comment=FALSE)

  print(strwrap(exampledf[i,], 70))

  cat("\n\newpage\n")

}

```

在 Markdown PDF 中，如何在 for 循环的每次迭代后添加分页符？

In Markdown PDF, how to add page break after each iteration of for loop?

r

page-break

knitr

r-markdown