Question

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

estimates.doc

我保存在我的应用的www文件夹中，我在应用的用户界面中的代码如下：

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 ...我收到了消息＆＃34;未找到＆＃34;。

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)

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

1 个答案: