由于驱动应用程序的数据集非常庞大,在我的闪亮应用程序中,我正在创建一个词汇表页面。但是,我无法涵盖所有细节。其中一些我喜欢提供可下载的单词或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;。
答案 0 :(得分:2)
您可以使用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)