R: Shiny DownloadButton für statischen Inhalt

Question

Ich habe eine statische PDF-Datei in meinem Ordner www, die ich auf eine UI downloadButton() verknüpfen möchte. Es scheint, dass die serverseitige downloadHandler die content Option benötigt, um befüllt zu werden, und für reaktiv produzierte Ausgabe gedacht ist.

Ich weiß, dass ich mit statischen HTML-Tags, tags$a('Download file.', href = 'foo.pdf') auf der UI-Seite verknüpfen kann.

Irgendwelche Vorschläge, wie man die zwei zusammensetzt, wird hilfreich sein.

Answer 1

Ich vermute, Sie wollen nur eine Schaltfläche angezeigt werden? Sie können class = 'btn' zu Ihrem Anker hinzufügen. Hier ist ein Beispiel, das mit und ohne zeigt.

library(shiny) 
runApp(list(
    ui = bootstrapPage(
    numericInput('n', 'Number of obs', 100), 
    plotOutput('plot'), 
    tags$a(href = 'foo.pdf', class = "btn", icon("download"), 'Download file.'), 
    tags$a('Download file2.', href = 'foo2.pdf'), 
    downloadButton('downloadData', 'Download') 
), 
    server = function(input, output) { 
    output$plot <- renderPlot({ hist(runif(input$n)) }) 
    output$downloadData <- downloadHandler(
     filename = function() { 
     paste('data-', Sys.Date(), '.csv', sep='') 
     }, 
     content = function(con) { 
     write.csv(data, con) 
     } 
    ) 

    } 
)) 

Um ein Symbol wie die shiny Funktion hinzufügen downloadHandler zum fontawesome Bibliothek beziehen hat. Zum Beispiel Hier ist das Symbol die glänzende Funktion verwendet http://fontawesome.io/icon/download/. Shiny hat eine Wrapper-Funktion icon, die diese Symbole enthält.

Answer 2

Kann dies helfen:

content = function(file) { 
 
    file.copy('www/foo.pdf', file) 
 
}

Answer 3

Im Zusammenhang mit ui.R und server.R:

ui.R

downloadButton(
    "statFile", 
    "Download static file" 
) 

server.R

output$statFile <- downloadHandler(
    filename="example.txt", # desired file name on client 
    content=function(con) { 
     file.copy("file_name_on_server", con) 
    } 
)