Download-Datei in glänzend

Question

Ich möchte ein Benutzer eine Datei herunterladen, die im Tabellenformat mit Header zusammen mit zwei Such-Widgets an der Spitze ist. Die Ausgabe ist prognostizierte Werte zusammen mit 80% (High-Low) und 95% (High-Low) Konfidenzintervall. Es gibt fünf Spalten, fünf Zeilen (Standard). Allerdings habe ich hier zwei Herausforderungen.

Herausforderung 1: Wenn ich die App starte, nach dem Klicken auf "Download der Datei" Dateiname kommt als Download-Daten ohne Erweiterung, während ich erwähnt Dateinamen sollte "prognostiziert" mit PNG-Erweiterung und es sollte wie erwartet kommen .png

Aufgabe 2: Nachdem Sie beim Speichern der Datei png als Erweiterung eingegeben haben, wird die Datei gespeichert, aber nichts wird gedruckt.

Ich habe in verschiedenen Foren gesucht und versuche, sie zu replizieren, aber nichts scheint zu funktionieren.

Bitte vorschlagen.

glänzend UI

library(shiny)  
downloadButton(outputId = "downloaddata" ,label ="Download the file"), 

glänzend Server

output$downloaddata<-downloadHandler(

    filename = function(){ 
     paste("forecasted","png",sep=",") 
    }, 
    content = function(file){ 
     png(file) 
     h <-input$fst 
     tab<-forecast(Model_mape(),h) 
     datatable(as.data.frame(tab), options = list(
     columnDefs = list(list(targets = c(1, 3), searchable = FALSE)), 
     pageLength = 10)) 
     dev.off() 

    } 

) 

Answer 1

Vielleicht könnte es Ihnen helfen, (es ist ein einfaches Beispiel):

Ui:

library(shiny) 

shinyUI(fluidPage(

    mainPanel(plotOutput("plot1"), 
      downloadButton("downloadplot","Download your plot")) 

)) 

Server:

library(shiny) 

shinyServer(function(input, output) { 
    your_plot = function(){ 
    (plot(rnorm(1000,0,1))) 
    } 


    output$plot1 <- renderPlot({ 
    your_plot() 
    }) 

    output$downloadplot <- downloadHandler(
    filename = "plot_exemple.png", 
    content = function(file) { 
     png(file, width = 1200, height = 800) 
     print(your_plot()) 
     dev.off() 
    }) 

    }) 

Mit diesem können Sie einfach ein PNG herunterladen (öffnen Sie es in einem Browser).