Question

嗨，我的Shiny APP中的下载按钮有问题。创建相应的DF后，我已经动态创建了按钮。现在，我的问题是下载无法正常进行。如果我直接创建了按钮，则下载有效。我做了同样的重置功能，一切都在这里工作。有人可以告诉我我在做什么错吗？

这是用户界面中的按钮代码：

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)
      }
    )
  })

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

Shiny没有给出错误消息。只有Button不起作用。

Answer 1

您应将actionButton替换为downloadButton。

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;"))
  })

动态下载按钮

1 个答案: