Question

我有一个有光泽的Web应用程序。我想创建一个downloadButton，单击该按钮即可下载PowerPoint文件。为了从某些文件路径中读取PowerPoint文件，然后将该文件下载给按下按钮的用户，我需要在downloadHandler函数中添加什么？

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)

如何在R Shiny应用程序中下载PowerPoint文件？

1 个答案: