R-动态下载按钮

Question

嗨，我在我的Shiny应用中的下载按钮有问题。当创建相应的DF时，我已经动态创建了按钮。现在我有一个问题是下载不起作用。如果我直接创建按钮，则下载可行。我在重置功能上做了同样的事情，并且一切都在这里工作。有人可以告诉我我做错了什么吗？

这是UI中的按钮代码：

column(3, offset = 0, uiOutput("download.action", style = "text-align: center;"))

和我的服务器代码看起来像这样：

    output$download.action <- renderUI({
      div(style = "display:inline-block;width:0%;", actionButton("downloadData", "Download", icon = icon("download"), 
      style = " 
         flex-grow: 1;
        display: inline-block;
        background-color:#999;
        text-decoration: none;
        font-weight: 300;
        border: 1px dash transparent;
        letter-spacing: 0.98pt;
        border-color:#00245d;"))
    })
    output$downloadData <- downloadHandler(
      filename = function() {
        paste("test.xlsx")
      },
      content = function(file) {
        write.xlsx(test3, file, row.names = FALSE)
      }
    )
  })

直接创建按钮时，一切正常。

闪亮没有提供错误消息。只有按钮不起作用。

Answer 1

您应该用downloadButton替换actionButton。

output$download.action <- renderUI({
    div(style = "display:inline-block;width:0%;", downloadButton("downloadData", "Download", icon = icon("download"), 
                                                               style = " 
                                                               flex-grow: 1;
                                                               display: inline-block;
                                                               background-color:#999;
                                                               text-decoration: none;
                                                               font-weight: 300;
                                                               border: 1px dash transparent;
                                                               letter-spacing: 0.98pt;
                                                               border-color:#00245d;"))
  })