Discussion :

[comme de bien entendu]

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)

"","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

UI

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dataTableOutput(outputId = "preview1")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

downloadButton("downloadData", "Download"),

Le code coté Serveur

Server

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)
      }
    )

[comme de bien entendu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)
      }
    )