R Shiny: Vorhandene Datei herunterladen

Question

Angenommen, ich habe eine vorhandene Zip-Datei (out.zip) in meiner glänzenden App (d. H. Auf einem Server). Ich möchte, dass der Benutzer diese Datei herunterladen kann. Diese Frage ist sehr ähnlich zu this one. Diese Frage reißt jedoch Dateien innerhalb der downloadHandler, während die Zip-Datei in meinem Fall bereits existiert.

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) 

Answer 1

Nach etwa mit verschiedenen Datei-Handling-Funktionen Stossen entdeckte ich, dass file.copy zum Herunterladen der Datei verwendet werden kann.

ich ändern downloadHandler zu:

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

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