R Shiny/R Markdown：render() 在 downloadHandler 中失败答案

【问题标题】：R Shiny/R Markdown: render() fails inside downloadHandlerR Shiny/R Markdown：render() 在 downloadHandler 中失败
【发布时间】：2017-08-28 13:58:05
【问题描述】：

我有一个 RMarkdown 模板，template.Rmd:

---
title: "Template"
output: tufte_handout
params:
    data: !r data.frame()
---

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

# Title

## Another Title

```{r echo=FALSE}
ggplot(data = params$data, mapping = aes(x=params$data$X, y=params$data$Y)) +
  geom_point()
```

然后我有这个 R Shiny 应用程序，app.R：

library(shiny)
library(rmarkdown)

data <- data.frame(X = 1:10, Y = 11:20)

ui <- fluidPage(fluidRow(column(
  width = 6,
  actionButton("actionButton", "PDF"),
  downloadButton("downloadButton", "PDF")
)))

server <- function(input, output) {
  observeEvent(input$actionButton, {
    renderedFile <- render(
      input = "template.Rmd",
      output_format = "tufte::tufte_handout",
      params = list(data = data),
      output_file = "output.pdf"
    )
    browseURL(renderedFile)


  })
  output$downloadButton <-
    downloadHandler(filename <- "output.pdf",
                    content <-
                      function(file) {
                        renderedFile <- render(
                          input = "template.Rmd",
                          output_format = "tufte::tufte_handout",
                          params = list(data = data),
                          output_file = "output.pdf"
                        )
                        file.copy(renderedFile, file)
                      })
}

shinyApp(ui = ui, server = server)

有一个actionButton 和一个downloadButton。他们都应该或多或少地做同样的事情：渲染PDF（准确地说是Tufte讲义），然后分别打开下载它。虽然browseURL 在我的机器上运行示例时效果很好，但在“真实”服务器中运行应用程序时我需要downloadHandler。

actionButton 完美运行，但 downloadButton 失败：

"C:/PROGRA~2/Pandoc/pandoc" +RTS -K512m -RTS template.utf8.md --to latex --from markdown+autolink_bare_uris+ascii_identifiers+tex_math_single_backslash --output pandoc7146d9cfc5.pdf --template "C:\Users\paedubucher\Documents\R\win-library\3.4\tufte\rmarkdown\templates\tufte_handout\resources\tufte-handout.tex" --highlight-style pygments --latex-engine pdflatex --variable "documentclass:tufte-handout" 
! Undefined control sequence.
<argument> C:\temp 
                   \RtmpAtAlbM \file 714614f62c3_files
l.78 ...62c3_files/figure-latex/unnamed-chunk-1-1}

pandoc.exe: Error producing PDF
Warning: running command '"C:/PROGRA~2/Pandoc/pandoc" +RTS -K512m -RTS template.utf8.md --to latex --from markdown+autolink_bare_uris+ascii_identifiers+tex_math_single_backslash --output pandoc7146d9cfc5.pdf --template "C:\Users\paedubucher\Documents\R\win-library\3.4\tufte\rmarkdown\templates\tufte_handout\resources\tufte-handout.tex" --highlight-style pygments --latex-engine pdflatex --variable "documentclass:tufte-handout"' had status 43
Warning: Error in : pandoc document conversion failed with error 43
Stack trace (innermost first):
    53: pandoc_convert
    52: convert
    51: render
    50: download$func [C:\Users\paedubucher\Documents\R\pdf-download/app.R#28]
     1: runApp
Error : pandoc document conversion failed with error 43

编辑：现在有正确的错误消息。 Pandoc 失败（错误 43），但在 actionButton 上下文中运行时一切正常。

【问题讨论】：

嗯，我在哪里有一个因素？我的数据是数字：data <- data.frame(X = 1:10, Y = 11:20)
啊，抱歉，我在删除 output 常量时弄乱了代码...我会修复它！
没关系。我没有测试你的代码。根据错误发表评论。抱歉打扰了
很奇怪，当我将downloadHandler 中的文件名更改为"foo.bar" 时，它可以正常工作而没有任何错误消息，但会下载LaTeX 文件。在我看来，pandoc 调用具有标志 --to latex，应该是 --to pdf。但对 actionButton 处理程序的调用是相同的。

标签： r shiny r-markdown pandoc tufte

【解决方案1】：

GitHub 上友好的 R Shiny 人pointed out the problem。 output_file 不应该以这种方式使用。它只是中间的 LaTeX 文件。 PDF 文件的位置从render 返回。这个文件只需要移动到file参数指向的地方：

  output$downloadButton <-
    downloadHandler(
      filename = "output.pdf",
      content =
        function(file) {
          output <- render(
            input = "template.Rmd",
            output_format = "tufte::tufte_handout",
            params = list(data = data)
          )
          file.copy(output, file)
        }
    )

【讨论】：