R Shiny downloadHelper multiple write.csv + file.copy

Question

我正在使用Shiny来生成一个data.frame，用户可以通过单击按钮下载该数据框：

server.R

output$downloadresults <- downloadHandler(
    filename= function() {
      paste(country, " - Provision report.csv", sep = "")
    },
    content=function(file) {
      write.csv(sheet1_report,file)
    }
  )

当用户点击下载按钮时，我（同时）想要将第二个文件从我的服务器复制到他们下载data.frame的相同位置。

重要的是，我正在尝试避免使用辅助按钮。

所以想法是添加行file.copy("C:/temp/asdf.csv", file)：

output$downloadresults <- downloadHandler(
    filename= function() {
      paste("User_chosen_filename", sep = "")
    },
    content=function(file) {
      write.csv(sheet1_report,file)
      file.copy("C:/temp/asdf.csv", file) #NEW LINE
    }
  )

这不起作用，R只执行第一个write.csv行并忽略file.copy。

我已经单独测试了file.copy并且它可以正常工作。

我做错了什么？