Как загрузить файл PowerPoint в приложении R Shiny?

Question

У меня есть блестящее веб-приложение. Я хочу создать downloadButton, которое будет загружать файл PowerPoint при нажатии. Что мне нужно добавить в функцию downloadHandler, чтобы прочитать файл PowerPoint из какого-либо пути к файлу, а затем просто загрузить этот файл пользователю, который нажал кнопку?

Answer 1

Вы можете использовать функцию file.copy.Ниже приведен основной пример файла, который находится в c:/temp.

library(shiny)

ui <- fluidPage( 
  downloadButton("downloadFile", "Download File")
)

server <- function(input, output) {

  fileName <- "test.pptx"
  filePath <- "c:/temp"

  output$downloadFile <- downloadHandler(
    filename = function() {
      fileName # default file name use by browser, it could be different
    },
    content = function(file) {
      file.copy(file.path(filePath, fileName), file)
    }
  )
}

shinyApp(ui = ui , server = server)