r Shiny-下载uioutput作为pdf

Question

我正在尝试创建一个在我的Shiny应用中与下载者一起使用的R Markdown文件。在R标记中，我只需要一个简单的UIOutput。以下是我尝试将其传递到降价文件中的方式。

在服务器中：

output$myOutput <- renderUI({
    ... # the output that needs to be printed 
})

output$downloadChart <- downloadHandler(
    filename = "report.pdf",
    content = function(file) {
      tempReport <- file.path(tempdir(), "report.Rmd")
      file.copy("report.Rmd", tempReport, overwrite = TRUE)
      
      params <- list(report = output$myOutput)
      
      rmarkdown::render(tempReport, output_file = file, params = params, envir = new.env(parent = globalenv()))
    }
)

report.rmd

---
title: "report"
output: pdf_document
params:
  report: NA
---

```{r}
params$report```

使用上述代码时，下载了HTML文件。我真的不明白为什么这是因为我已经指定了PDF。这不是制作可下载文件的正确方法吗？我很新鲜。任何帮助将不胜感激！