SHINY, téléchargement d'un fichier de l'interface Web en local

Bonjour, je développe une application Shiny et je cherche à télécharger un fichier visible dans l'interface

J'ai un dataTableOutput dans l'UI avec un DowloadButton, et je n'arrive pas à télécharger le contenu du fichier mais seulement l'emplacement du fichier sur le disque. (La fenêtre de téléchargement s'ouvre bien mais je ne télécharge que cela)

Citation:

---

"","name","size","type","datapath"
"1","iris.txt",3865,"text/plain","C:\Users\GUILLA~1\AppData\Local\Temp\Rtmp42cg5a/79373f5b4952cb62f56088c2/0.txt"

---

Merci d'avance de votre aide.

Voici le code de l'interface UI

Citation:

---

UI

---

Code:

---

1 2 3

fileInput("dataFile1",label = NULL, buttonLabel = "Browse...", placeholder = "No file selected")

---

Code:

---

dataTableOutput(outputId = "preview1")

---

Code:

---

downloadButton("downloadData", "Download"),

---

Le code coté Serveur

Citation:

---

Server

---

Code:

---

1 2 3 4 5 6 7 8 9 10

thedata <- reactiveValues() thedata <- reactive(input$dataFile1) output$downloadData <- downloadHandler( filename = function() { paste("test", ".csv", sep = "") }, content = function(file) { write.csv(thedata(), file) } )

---

Bonjour, j'ai trouvé la solution, il fallait que je reprenne l'intégration complète des données dans un read.csv pour l'inclure dans la "réactive" fonction du coté serveur.

Ce qui donne ceci coté serveur :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

RE <- reactive({ df1 <- read.csv(input$dataFile1$datapath, header = as.logical(input$header1), sep = input$sep1, quote = input$quote1, nrows=20) return(df1) })   output$downloadData <- downloadHandler( filename = function() { paste("test", ".csv", sep = "") }, content = function(file) { write.csv(RE(), file) } )

---