DownloadHandler无法在服务器上运行，但可以在本地运行

Question

我正在尝试编写一段代码，该代码将使用2个excel文件，进行比较和合并并生成一个工作簿，该工作簿将包含其中一个工作簿的每个选项卡。该代码在本地成功运行，并且我能够下载创建的excel文件。但是，在发布此代码并尝试在浏览器上运行它之后，当我单击“下载”时，它不会生成该文件。我已经包含了生成问题的代码。

基本上，该代码有两个输出，一个是getData，它生成wb并用于保存文件以供下载。第二个输出是getData2，它在主面板上显示摘要。

如果未调用getData2且仅使用renderText调用getData，则下载也可在浏览器上进行。

任何帮助/建议都将不胜感激。

 saveWorkbook(wb, file = "aaa.xlsx" , overwrite = TRUE)  


  output$contents <- renderTable({if (!is.null(getData2())) return(getData2())})

  output$downloadData <- downloadHandler(
filename = function() { 
  paste0(input$file2, ".xlsx")
},
content = function(file) { 
  file.copy("aaa.xlsx", file)  
})
     }