Datei herunterladen auf Shiny.onInputChange

Question

Ich implementiere einen Download-Link mit Shiny.onInputChange, die eine Nachricht vom Client zum Server sendet. Der Server wird die Nachricht verwenden, um eine neue Datei zu generieren und anschließend dem Benutzer zum Herunterladen bereitzustellen. downloadHandler kann eine Schaltfläche erstellen, um eine Datei vom Server herunterzuladen, kann jedoch keine Nachricht vom Client empfangen.

Die Shiny.onInputChange kann von observeEvent erfasst werden.

Meine Frage ist, wie Sie die Download-Funktion in observeEvent implementieren.

Im Folgenden finden Sie einige Beispielcodes für Shiny.onInputChange. Danke für Anregungen.

library(shiny) 

ui <- shinyUI(
    fluidPage(
     HTML('<a href="#" onclick=\'Shiny.onInputChange("i_download", [1,Math.random()]);\'>Download</a>') 
    ) 
) 

server <- function(input, output, session) { 
    observeEvent(input$i_download, { 
     rep(input$i_download[1]) 
     # codes to generate a new file and download it 
    }) 
} 


shinyApp(ui = ui, server = server) 

Answer 1

Ich denke, Sie können die Nachricht mit downloadHandler empfangen. Dies entspricht Ihrer Anfrage:

library(shiny) 

ui <- fluidPage(
    downloadLink('down', onclick='Shiny.onInputChange("i_download", [1,Math.random()]);') 
    # for shiny 0.14.2 or lower use this instead: 
    # tagAppendAttributes(downloadLink('down'), onclick='Shiny.onInputChange("i_download", [1,Math.random()]);') 
) 

server <- function(input, output, session) { 

    output$down <- downloadHandler(

    filename = 'down.txt', 

    content = function(file) { 

     # use the message (input$i_download) to generate a new file 

     writeLines(as.character(input$i_download), file) 

    } 
) 
} 

shinyApp(ui = ui, server = server)