从闪亮的应用程序中的www文件夹下载支持文档

Question

由于驱动应用程序的数据集非常庞大，在我的闪亮应用程序中，我创建了一个词汇表页面。但是，我无法涵盖所有​​细节。其中一些我喜欢提供可下载的单词或pdf文件。假设我的文件的名称是

estimates.doc 

我已经保存在我的应用程序的www文件夹，应用程序的UI中我的代码如下：

library(shiny) 
ui <- navbarPage("TITLE HERE", 
    tabPanel("GLOSSARY", 
     p("Click", a(href = "~/www/Estimation_Procedure.doc", "here"), "to download.") 
    ) 
) 

server <- function(session, input, output) {} 

shinyApp(ui, server) 

我不知道如何在这里包含downloadHandler ...我收到消息“NOT FOUND”。

Answer 1

您可以使用downloadHandler和downloadLink。

library(shiny) 
ui <- navbarPage("TITLE HERE", 
       tabPanel("GLOSSARY", 
          downloadLink(outputId = 'myFile' , label = 'to download') 
       ) 
) 

server <- function(session, input, output) { 
    output$myFile <- downloadHandler( 
    # generate file name 
    filename = function() {  
     'Estimation_Procedure.doc' 
    } , 
    # set file content 
    content = function(file) { 
     file.copy('www/Estimation_Procedure.doc' , file) 
    } 
) 
} 
shinyApp(ui, server)