将文件作为word文档下载到闪亮的应用程序中

是否可以通过

shinny

app下载空word文档

ui <- fluidPage(
  downloadButton("downloadData", "Download")
)

server <- function(input, output) {
  # Our dataset
  data <- mtcars

  output$downloadData <- downloadHandler(
    filename = function() {
      paste("data-", Sys.Date(), ".csv", sep="")
    },
    content = function(file) {
      write.csv(data, file)
    }
  )
}

shinyApp(ui, server)

---

ui-Create
empty.docx
yourself（使用pandoc/knitr或Word或类似工具编程），将其包含在软件包中，然后返回。然而，您说的是“word文档”，但您的示例显示的是CSV。是哪一个？.doc但我留下了csv示例你的
内容
部分是否可以改为
文件.copy（“path/to/premade/empty.doc”，file）
？内容=函数（path/to/premade/empty.doc，file））？否。
内容=函数（file）文件.copy（“path/to/premade/empty.doc”，file）