Блестящий файл загрузки не работает

Question

Я создаю R Блестящее приложение, в котором у меня есть раскрывающийся список (selectInput) списка документов и кнопка загрузки. Таким образом, функциональность: пользователи будут выбирать документ из списка и загружать этот документ с помощью кнопки загрузки.

в 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) 
} 
) 

Эти документы я разместили на сервере Linux в WWW папку моего блестящего применения.

MyApp

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

При запуске приложения, он просто загружает пустой файл CSV или .docx файл, но не сам файл с сервера.

Answer 1

решаемые его следующим образом:

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) 
} 
)