Блог

Я пытаюсь создать параметрический html_paged document. Когда я использую функцию рендеринга для рендеринга файла .Rmd. Он создает постраничный HTML-документ, но не создает постраничный PDF-документ. Но когда я использую кнопку вязания. Затем он может создать как постраничный документ html, так и документ pdf.

Поскольку я хочу сделать это параметрическим отчетом, вот почему я предпочитаю функцию рендеринга. Есть ли способ создать разбитый на страницы PDF-документ с помощью функции рендеринга? Ниже приведен воспроизводимый пример:

 ---
title: "A Multi-page HTML Document"
author: "Yihui Xie and Romain Lesur"
date: "`r Sys.Date()`"
output:
  pagedown::html_paged:
    toc: true
    # change to true for a self-contained document, but it'll be a litte slower for Pandoc to render
    self_contained: false
# uncomment this line to produce HTML and PDF in RStudio:
knit: pagedown::chrome_print

params:
  test: 'html' 
---

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

# Introduction

This is an example of a multi-page HTML document. See https://pagedown.rbind.io for the full documentation. The rest of this document is random text.

# Random text

```{r, results='asis', echo = FALSE}
random_markdown = function(len = 100) {
  uri = knitr::image_uri(file.path(R.home('doc'), params$test, 'logo.jpg'))
  text = function(len) {
    trimws(paste(sample(c(letters, rep(' ', 10)), len, TRUE), collapse = ''))
  }
  id = function() paste(sample(letters, 8, TRUE), collapse = '')
  figure = function() {
    sprintf('![(#fig:%s)The R logo.](%s){width=%d%%}', id(), uri, sample(20:60, 1))
  }
  tab = paste(knitr::kable(head(mtcars[, 1:5])), collapse = 'n')
  table = function() {
    c(sprintf('Table: (#tab:%s)A table example.', id()), tab)
  }
  unlist(lapply(seq_len(len), function(i) {
    if (i %% 20 == 0) return(paste('#', text(sample(10:30, 1))))
    if (i %% 10 == 0) return(paste('##', text(sample(10:30, 1))))
    type = sample(1:3, 1, prob = c(.9, .03, .07))
    switch(type, text(sample(50:300, 1)), figure(), table())
  }))
}
cat(random_markdown(), sep = 'nn')
```

  

Теперь, если я отрисовываю его с помощью функции рендеринга.

 rmarkdown::render("reprex.Rmd", params=list(test="html"))
  

Это создало бы постраничный HTML-вывод, но не создаст постраничный PDF-документ.
Я использую последние пакеты rmarkdown (версия 2.3) и pagedown (версия 0.11).

Я нашел решение здесь:

Согласно предложению, в настоящее время chrome_print не поддерживает передачу параметров. Эта функция была запрошена здесь. На данный момент мне пришлось создать параметризованный постраничный PDF-отчет в двухэтапном процессе, как показано ниже, который, похоже, работает нормально.

 output <- rmarkdown::render("reprex.Rmd", params=list(test="html"))
pagedown::chrome_print(output)