如何在闪亮的应用程序中集成下载按钮？

Question

我觉得我的语法有问题。这是我的第一个应用程序。并且需要重写。我已经有一个像 R.script 一样的工作函数。但我不知道如何整合它。 它不会下载表格。只是一些随机文本文件。 如何从 rshiny 工具中引用 output$table 进行下载？ 为了测试应用程序，您可以使用任何类型的具有时间顺序编号的重复文件（例如 Photo1-1.JPG、Photo2-1.JPG）

# Define UI for data upload app ----
ui <- fluidPage(
  
  textInput("file_type", "File type", "Enter file type suffix"),
  verbatimTextOutput("file_sign"),
  
  textInput("file_sep", "File separator", "Enter separator"),
  verbatimTextOutput("file_sep"),
  img(src = "logo_ebm.PNG"),
  
  # App title ----
  titlePanel("Katalogisieren von Graphiken"),
  
  # Sidebar layout with input and output definitions ----
  sidebarLayout(
    
    # Sidebar panel for inputs ----
    sidebarPanel(
      
      # Input: Select a file ----
      fileInput("files", "File-Upload", multiple = TRUE),
    
    # Button
    ),
    
    # Main panel for displaying outputs ----
    mainPanel(
      h1("Erstellen eines Graphik-Katalogs"),
      h5("Das Erstellen des Graphiken-Katalogs stellt die Basis für automatisierte Protokolle dar.
          Hierfür wird ein xlsx.file im Zielordner (jener der auch die Graphiken beinhaltet) angelegt.
          Protokolle können im Moment für maximal 4 Bilder erstellt werden."),
      h1("Einspeisen der Graphik-Files"),
      h5("Jeder File-Format ist hier für geeignet (.jpeg,.JPG,.pdf,..). 
         Dieses muss zu Beginn sepezifiziert werden ohne vorangestellten Punkt (z.b ´pdf´).
         keine Unterordner anlegen, es sei denn es ist zwingend erforderlich
         Im nächsten Schritt muss ein Trennzeichen definiert werden, dass Bilder desselben 
         Objekts von seinen dazugehörigen Bildern klar unterscheidet. 
         Zu empfehlen sind Bindestrich (´-´) oder Unterstrich (´_´)."),
      
      # Output: Data file ----
      #textOutput("file_names")
      dataTableOutput('table'),
      downloadButton("downloadData", "Download")
    )
    
  ))

# Define server logic to read selected file ----
server <- function(input, output) {
  # output$file_sign <- renderText({input$file_type})
  
  output$table <- renderDataTable ({
    # Test if file is selected
    if (!is.null(input$files$datapath)) {
      # Extract file name (additionally remove file extension using sub)
      file_names <- basename(input$files$name)
      sep_sign <- input$file_sep
      # file_type <- paste0(".",input$file_sign)
      file_type <- input$file_sign
      define_pattern <- dput(paste0(sep_sign,"[[:graph:]]","*.",dput(file_type)))
      file_names <- gsub(define_pattern, "", file_names)
      
      library(dplyr)
      schacht <- table(file_names) %>% names()
      repl <- table(file_names) %>% as.numeric()
      docx_filename <- rep(schacht,repl)
      docx_filename %>%  length()
      list.files(pattern= dput(file_type)) %>% length()

      filenames_OG <- list.files(pattern= dput(file_type)) %>% length()

      # DF1 <- table(file_names) %>% as.data.frame()

      docx_filename <- rep(schacht,repl)
      
      final_DF <- data.frame(Index_num = seq_along(docx_filename),
                             Schachtname = docx_filename,
                             jpeg_file = input$files$name,
                             Bildbeschreibung = NA,
                             Ort = NA,
                             Datum = NA,
                             Bearbeiter = NA)
      require(xlsx)
      write.xlsx(final_DF, paste0("Bildregister_",Sys.Date(),".xlsx"), row.names = F, showNA = T)
      return(output$table <- renderDataTable(final_DF))
      } else {
      return(NULL)
      }
    
    output$download <- downloadHandler(
      filename = function(){paste0("data-", Sys.Date(), ".csv", sep="")}, 
      content = function(fname){
        write.csv(output$table, fname)}
    )
  })}

# Create Shiny app ----
shinyApp(ui, server)```