在rmarkdown中的代码块中插入分页符（转换为pdf）

Question

我正在使用rmarkdown，pandoc和knitr来创建包含r代码块的pdf。在一个代码块中，我有一个for循环，它打印了许多图形和一些统计输出。

我想在循环中插入分页符（显示在pdf输出中）。打印每个图形后会发生此分页，以确保每个图形打印在一个页面上，统计输出打印在下一个页面上。

我一直无法找到在我的r代码块中包含分页符的方法。我已经尝试cat("\\newpage")和cat("\\pagebreak")希望它能被pandoc识别但无济于事（它只是在最终的pdf中逐字打印）。

建议表示赞赏。这是我到目前为止的代码：

```{r, echo =FALSE, message=FALSE, warning=FALSE, comment=NA, results='asis'}
library("markdown") 
library("rmarkdown") 
library("knitr")
library("ggplot2")
for (v in Values){

# read in file
testR <- read.csv(file.path, header=T)

print(ggplot(testR, aes(x=Time, y=Value, color=Batch)) + geom_point(size = 3) +
xlab ("Timepoint") +
ylab (v) +
scale_x_continuous(breaks=seq(0, 60, by=6)) +
ggtitle(paste("Scatterplot of Batches for ", v, sep="")))
ggsave(paste(timestamp, "__", 
       "Scatterplot of Batches for ", v, ".jpeg", sep = "")) 

cat("\\pagebreak")
writeLines(v)
writeLines("\n")
writeLines("\n Test for homogenity of slopes \n")
av1 <- aov(Value~Time*Batch, data=testR)
print(summary(av1))
}
```

Answer 1

见下面一个简化且可重复的例子。答案和一些一般性评论：

• 要在降价文档中动态创建新页面或部分，请在块选项中使用results='asis'。
• 您必须在\n之后添加换行符（\\pagebreak），否则"ValueForV"将在"\linebreak"之后直接粘贴，这会导致Undefined control sequence错误
• 请确保\newpage和\pagebreak之前使用换行符\n分开。

• 逃脱\newpage和\pagebreak（即\\newpage，\\pagebreak）。

  ---
  title: "test"
  output: pdf_document
  ---
  
  ```{r, echo=FALSE, results='asis'}
  for (i in 1:3) {
    print(ggplot2::qplot(i, i+1))
    cat("\n\n\\pagebreak\n")
    writeLines("ValueForV")
  }
  ```
  

Answer 2

如何在转换为PDF的Rstudio .Rmd代码块中插入分页符：

如果\newpage和\pagebreak乳胶宏不适合您，请使用HTML进行解决方法。

例如：

---
title: "The Rent"
output:
  pdf_document: default
  html_document: default
---

# This is pre-chunk text.

```{r, echo=FALSE, results='asis'}
print("Now we're <b>inside the chunk</b>, using the power of HTML.<br><br><br>!")

print("As you can see from the following diagram")
cat("\n")
print("The rent...<br>")
print(plot(1:10))

print("<P style='page-break-before: always'>")    #forced new-page happens here.

print("<h1>Is too damned high!!</h1>")
writeLines("\n")
print("Finished")
cat("\n\n")
```
This is post chunk text.

为我制作这个：

主要成分是块标题中的print("<P style='page-break-before: always'>")和{r, echo=FALSE, results='asis'}。