闪亮的下载文件不工作 [英] Shiny download file not working

问题描述

我正在创建R Shiny应用程序，其中有一个下拉列表（selectInput）的文档列表和一个下载按钮。所以功能是用户将从列表中选择一个文档，并使用下载按钮下载该文档。

I am creating R Shiny application in which I have a dropdown (selectInput) of documents list and a download button. So functionality is Users will select a document from the list and download that doc using download button.

在UI.R中

  tabItem(tabName = "Downloads",
                selectInput("filenames", "Choose a document to download:",list.files(path="/srv/shiny-server/apps/dsw/files")),
  downloadButton('downloadData', 'Download')),

在Server.R中

        datasetInput <- reactive({
switch(input$filenames,input$filenames)
   })

output$downloadData <- downloadHandler(
filename = function() { 
paste(input$filenames) 
},
content = function(file) {
write.csv(datasetInput(), file)
}
)

这些文件我已经在我的闪亮应用程序的www文件夹中的Linux服务器上放置。

These documents I have placed on Linux server in the www folder of my shiny application.

myapp

--app.R
--files
   -- Doc1.doc
   -- Doc2.csv

当我运行应用程序时，它只会下载空的.csv或.docx文件，而不是服务器上的实际文件。 >

When I run the application, it just downloads empty .csv or .docx file but not the actual file from server.

推荐答案

解决方法如下：

UI.R

 tabItem(tabName = "Downloads",
            selectInput("filenames", "Choose a document to download:",list.files(path="/srv/shiny-server/apps/files")),
 downloadButton('downloadData', 'Download'))

Server.R

output$downloadData <- downloadHandler(
filename = function() {
paste(input$filenames, sep='')
},
content = function(file) {
myfile <- paste0('/srv/shiny-server/apps/files/',input$filenames, collapse = NULL)
  file.copy(myfile, file)
}
)

这篇关于闪亮的下载文件不工作的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！