downloadButton-Funktion in glänzenden Armaturenbrett funktioniert nicht

Question

Ich möchte Datentabelle Ausgabe in CSV schreiben, wenn der Benutzer auf die Schaltfläche klickt. Ich habe für die Download-Funktionalität

ui.r 

tabItem(tabName = "output", 
      h2("Resource Predictions"), 
      fluidRow(
       box(
       width = 3, status = "info",solidHeader = TRUE, 
       title = "QC Assignment", 
       tableOutput("qc_assign") 
      ), 
       box(
       width = 9, status = "info",solidHeader = TRUE, 
       title = "ITV Assignment", 
       DT::dataTableOutput("itv_seq") 
      )), 

      fluidRow(
      downloadButton("downloadtable", "Download ITV assignment file",style="display: block; margin: 0 auto; width: 230px;color: blue;")) 

    ), 

Und meine server.r Datei sieht wie folgt aus

qc_assignment <- reactive({ 
. 
. 
. 
list(ITV_assign = itv_assign) 

}) 


output$downloadtable <- downloadHandler(
itv_seq <- qc_assignment()[['ITV_assign']], 
filename = function() {paste("ITV_assignement_",input$ves_arrv_date,".csv",sep="")}, 
content = function(file){ write.csv(itv_seq, file) } 
) 

folgenden Code in r geschrieben Wenn ich auf Download ITV assignment file Schaltfläche klicken, öffnet Datei-Browser und es ist das Speichern der Datei mit dem Namen downloadtable ohne .csv Erweiterung.

Was mache ich falsch?

Answer 1

downloadHandler hat angegebenen Argumente:

downloadHandler(filename, content, contentType = NA, outputArgs = list())

Ich denke, R versucht, Ihre itv_seq <- -Assignment einem der remeaining Argumente entsprechen. Dies funktioniert:

output$downloadtable <- downloadHandler(
    filename = function() {  
     paste("ITV_assignement_",input$ves_arrv_date,".csv",sep="") 
    }, 
    content = function(file){ 
     itv_seq <- qc_assignment()[['ITV_assign']], 
     write.csv(itv_seq, file) 
    } 
) 

Sie das Argument hinzufügen könnte contentType = 'text/csv', aber dies wird von der Verlängerung erraten Sie zur Verfügung gestellt.