Discussion :

[comme de bien entendu]

Bonjour, je souhaite utiliser avec Shiny le fuildrow pour intégrer deux fichiers et visualiser leur contenu en paralléle.
Dans le premier groupe du fuildrow je souhaite intégrer les deux fichiers et, en dessous, dans le deuxième groupe je veux visualiser les fichiers en parallèle.
Mais lorsque je veux intégrer les données, l'input file ne fonctionne plus si l'intégration et le preview sont dans deux groupes séparés.
Alors qu'il n'y a pas de problémes lorsque intégration et visu sont dans le meme groupe (on voit alors l'input file et le preview dans la meme groupe (cote à cote)

Voici le code UI :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
ui <- fluidPage(
 
 
      fluidRow(
          column(12,
                 fluidRow(
 
                 # Chargement tableau 1
                column(2, offset =1,
                h3("Donnees Premier Tableau"),
                fileInput("dataFile1",label = NULL,
                          buttonLabel = "Browse...",
                          placeholder = "No file selected")),
 
                # Parametres tableau 1
                column(2,offset =1,
                h3("Parametres"),
                # Input: Checkbox if file has header
                radioButtons(inputId = "header1", 
                                      label = "Header1",
                                      choices = c("Yes" = TRUE,
                                                  "No" = FALSE),
                                      selected = TRUE, inline=T),
 
                # Input: Select separator ----
                radioButtons(inputId = "sep1", 
                                    label = "Separator",
                                    choices = c(Comma = ",",
                                                Semicolon = ";",
                                                Tab = "\t"),
                                    selected = "\t", inline=T),
 
                       # Input: Select quotes ----
                radioButtons(inputId = "quote1", 
                                    label= "Quote",
                                    choices = c(None = "",
                                                "Double Quote" = '"',
                                                "Single Quote" = "'"),
                                    selected = "", inline=T)
                  ),
 
          # Chargement tableau 2
 
          column(2,offset=1,
                 h3("Donnees Deuxieme Tableau"),
                 fileInput("dataFile2",label = NULL,
                           buttonLabel = "Browse...",
                           placeholder = "No file selected"),
          ),
 
          # Parametres tableau 2
          column(2,offset=1,   
                 h3("Parameters"),
 
                 # Input: Checkbox if file has header
                 radioButtons(inputId = "header2", 
                              label = "Header2",
                              choices = c("Yes" = TRUE,
                                          "No" = FALSE),
                              selected = TRUE, inline=T),
 
                 # Input: Select separator ----
                 radioButtons(inputId = "sep2", 
                              label = "Separator",
                              choices = c(Comma = ",",
                                          Semicolon = ";",
                                          Tab = "\t"),
                              selected = "\t", inline=T),
 
                 # Input: Select quotes ----
                 radioButtons(inputId = "quote", 
                              label= "Quote",
                              choices = c(None = "",
                                          "Double Quote" = '"',
                                          "Single Quote" = "'"),
                              selected = "", inline=T),
 
            )
          )
          ),
 
          column(12,
 
                 column(4, offset =1,
                # Visualisation des donnees Tableau 1
                h3("File preview"),
                dataTableOutput(outputId = "preview1"),
                actionButton("do1", "Selection des champs:"),
                # Montrer le selecteur de champs a croise
                conditionalPanel(condition='output.bool1',
                           selectizeInput('ListeHeader1',label="ChampsACroiser" ,choices = c("Merci d'activer la liste"))),
                downloadButton("downloadData", "Download"),
                tags$br(),
                div(actionButton(inputId = "actBtnVisualisation1", label = "Visualisation",icon = icon("play") ), align = "center")
                ),
 
 
 
 
              column(4, offset =2,
              # Visualisation des donnees Tableau 2 
                h3("File preview"),
                dataTableOutput(outputId = "preview2"),
                actionButton("do1", "Selection des champs:"),
              # Montrer le selecteur de champs a croise
                conditionalPanel(condition='output.bool2',
                               selectizeInput('ListeHeader2',label="ChampsACroiser" ,choices = c("Merci d'activer la liste"))),
              downloadButton("downloadData", "Download"),
              tags$br(),
                div(actionButton(inputId = "actBtnVisualisation2", label = "Visualisation",icon = icon("play") ), align = "center")
 
 
 
          )
          )

et l'interface produite mais qui ne permet pas l'intégration:



Merci d'avance de vos conseils.