R SHINY：下载现有文件 [英] R Shiny: Download existing file

问题描述

假设我的闪亮应用程序(即位于服务器上)中有一个现有的zip文件(out.zip)。我希望用户能够下载此文件。这个问题与this one非常相似。但是，问题压缩了downloadHandler中文件，而我的案例中已存在该压缩文件。

library(shiny)

app <- list(
  ui = fluidPage(
    titlePanel(""),
    sidebarLayout(
      sidebarPanel(
        downloadButton("downloadData", label = "Download")
      ),
      mainPanel(h6("Sample download", align = "center"))
    )
  ),

  server = function(input, output) {  
    output$downloadData <- downloadHandler(
      filename <- function() {
        paste("output", "zip", sep=".")
      },

      content <- function(file) {
        # not sure what to put here???
      },
      contentType = "application/zip"
    )
  }
)

shiny::runApp(app)

推荐答案

仔细研究了不同的文件处理函数后，我发现file.copy可以用于下载该文件。

我将downloadHandler更改为：

output$downloadData <- downloadHandler(
  filename <- function() {
    paste("output", "zip", sep=".")
  },

  content <- function(file) {
    file.copy("out.zip", file)
  },
  contentType = "application/zip"
)

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