自定义html与闪亮的下载数据按钮

我想知道如何使Shiny downloadHandler使用自定义html UI.

在我的index.html中,我有以下内容：

在server.R我有：

output$downloadproject <- downloadHandler(
    filename = "test.csv",content = function(file) {
        test_data <- c(1,2,3,4,5,6,7)
        write.csv(test_data,file)
    }
 )

但是,我无法让它发挥作用.我注意到在演示页面上检查源代码：http://shiny.rstudio.com/gallery/file-download.html那里的链接指向一个资源：

但是,我猜这是由服务器端的downloadHandler设置的.然而,我的a-tag根本没有得到任何href.我想要做甚么可能吗？我在这里犯了一些错误吗？关于如何解决这个问题的任何想法将非常感激.

最佳答案

我认为A标签正在被一些javascript修改.如果您只是为此下载HTML源代码(在iframe包装器中),那么您将看不到长href.

因此,我进一步认为您的自定义HTML UI不包含调整标记的正确JavaScript.

我认为它是通过在shiny.js,1402行或其附近的downloadLinkOutputBinding完成的.

这些演示加载了很多js和css,其中一些显然至关重要！