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