從閃亮的應用程序中的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)