下载在R Shiny应用中生成的文件

Question

我目前正在尝试生成一个闪亮的应用程序，该应用在按钮的印刷下生成并为用户下载数据。我有一个用户定义的函数，该功能从某些地方，分析并创建了由许多表组成的.CSV。

我遇到的瓶颈成功地将此.csv文件包含在多个表中，并允许它轻松下载。我已经尝试应用在此处介绍的解决方案，但是当我运行应用程序脚本时，数据中的数据是从按钮生成的，但并没有像我希望的那样列出下载窗口。有没有一种方法可以使用下载Handler并将其链接到下载button或下载link功能之外的其他方法？

当前UI功能：

ui <- dashboardPage(
  dashboardHeader(title = "Download Center"),
  dashboardSidebar(
    sidebarMenu(id="mytabs",
                sidebarMenuOutput("menu")
    )
  ),
  dashboardBody(tabItems(
    
  tabItem(tabName = "DataHarah", h2("Download Your Data Here"),
                  textInput(inputId='startyear', label='What is the first year?'
                            ,value=2021, width = NULL, placeholder = "Inputs should be
                            a four digit year (e.g. 2022)."),
          textInput(inputId='endyear', label='What is the last year?'
                    ,value=2022, width = NULL, placeholder = "Inputs should be
                            a four digit year (e.g. 2022)."),
          actionButton("do", "Generate & Download Your Data!")      
                 ))
  ))

当前服务器功能＆amp;初始化：

observeEvent(input$do,
               {DataTalk(input$startyear,input$endyear) # function that generates a csv file
                                                        # containing multiple tables.
                 
                 output$downloadData <- downloadHandler(  #download handler that may not be connected properly.
                   filename = c('mycsv.csv'),
                   content = function(file){
                     file.copy('mycsv.csv',file)})})}
shinyApp(ui, server)