Shiny不会将下载的文件保存在带有output_dir的文件夹集中

我在下面有一个闪亮的应用程序，我在其中创建

.rmd

报告，然后尝试将其下载。当Im处于浏览器模式时，它会保存在“下载”文件夹中，而不是保存在我设置的文件夹中：

output\u dir=“C:/Users/User/Documents/Hodgkins/www”，

前rmd

---
title: "An example Knitr/R Markdown document"
output: pdf_document
---


{r chunk_name, include=FALSE}
x <- rnorm(100)
y <- 2*x + rnorm(100)
cor(x, y)

---
标题：“Knitr/R降价文档示例”
输出：pdf\U文件
---
{r chunk_name，include=FALSE}
x定义
output\u dir
时，需要定义
output\u file
。请试试这个

 output$report <- downloadHandler(

            filename = "report.pdf",
            content = function(file) {
              src <- normalizePath('ex.Rmd')
              
              owd <- setwd(tempdir())
              on.exit(setwd(owd))
              file.copy(src, 'ex.Rmd', overwrite = TRUE)

              library(rmarkdown)
              out <- render(input = 'ex.Rmd',
                            output_format = pdf_document(),
                            output_file = "reportt.pdf",
                            #output_dir = "C://My Disk Space//temp//",
                            output_dir = "C://Users//User//Documents//Hodgkins//www//",
                            params = list(data = data)
              )
              #file.rename(out, file)
              file.copy(out, file)
            }

output$report感谢您的帮助
 output$report <- downloadHandler(

            filename = "report.pdf",
            content = function(file) {
              src <- normalizePath('ex.Rmd')
              
              owd <- setwd(tempdir())
              on.exit(setwd(owd))
              file.copy(src, 'ex.Rmd', overwrite = TRUE)

              library(rmarkdown)
              out <- render(input = 'ex.Rmd',
                            output_format = pdf_document(),
                            output_file = "reportt.pdf",
                            #output_dir = "C://My Disk Space//temp//",
                            output_dir = "C://Users//User//Documents//Hodgkins//www//",
                            params = list(data = data)
              )
              #file.rename(out, file)
              file.copy(out, file)
            }