[R閃亮/ R降價：渲染（）內downloadHandler

Question

失敗，我有一個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閃亮的應用，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上下文中運行時一切正常。

Answer 1

GitHub pointed out the problem友好的R Shiny夥計們。不應該以這種方式使用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) 
     } 
    )