Làm cách nào để thêm \ newpage trong Rmarkdown một cách thông minh?

Tôi tự hỏi liệu người ta có thể sử dụng \newpagelệnh LaTeX trong R markdown v2 theo cách khác không:

```{r, results='asis', echo=FALSE}
cat("\\newpage")
```

Tôi sản xuất pdf_output. Nếu any1 có bất kỳ ý tưởng xin đừng ngần ngại comment :)! Cảm ơn

Tôi tạo pdf như thế này:

---
title: " "
author: " "
date: "2014"
output: 
   pdf_document:
      includes:
         in_header: naglowek.tex
      highlight: pygments
      toc: true
      toc_depth: 3
      number_sections: true
      keep_tex: true
---

Đơn giản \newpagehoặc \pagebreaksẽ hoạt động, ví dụ:

hello world
\newpage
```{r, echo=FALSE}
1+1
```
\pagebreak
```{r, echo=FALSE}
plot(1:10)
```

Giải pháp này giả định bạn đang đan PDF. Đối với HTML, bạn có thể đạt được hiệu ứng tương tự bằng cách thêm thẻ <P style="page-break-before: always">. Lưu ý rằng bạn có thể sẽ không thấy ngắt trang trong trình duyệt của mình (HTML không có trang), nhưng bố cục in sẽ có ngắt trang.

Trong phần khởi tạo, tôi xác định một hàm

pagebreak <- function() {
  if(knitr::is_latex_output())
    return("\\newpage")
  else
    return('<div style="page-break-before: always;" />')
}

Trong phần đánh dấu nơi tôi muốn chèn ngắt trang, tôi nhập

`r pagebreak()`

Bạn có thể đặt dấu ngắt trang có điều kiện để đan thành PDF. Điều này đã làm việc cho tôi.

```{r, results='asis', eval=(opts_knit$get('rmarkdown.pandoc.to') == 'latex')}
cat('\\pagebreak')
```