R Shiny Report Generator

Question

我正在尝试开发一个允许用户下载报告的应用。 这里有一个非常简单的代码来试试这个。

shinyApp(
ui = fluidPage(
sliderInput("slider", "Slider", 1, 100, 50),
downloadButton("report", "Generate report")
),
server = function(input, output) {
output$report <- downloadHandler(
  filename = "report.html",
  content = function(file) {
    tempReport <- file.path(tempdir(), "report.Rmd")
    file.copy("report.Rmd", tempReport, overwrite = TRUE)
    params <- list(n = input$slider)
rmarkdown::render(tempReport, output_file = file,
      params = params,
      envir = new.env(parent = globalenv())
    )
  }
)
}
)

问题是下载不起作用，我得到一个奇怪的错误，这里有图片：

有人可以帮忙吗？ 感谢