-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathUi_Shinyboard.R
94 lines (52 loc) · 3.51 KB
/
Ui_Shinyboard.R
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
library(shinydashboard)
shinyUI1=dashboardPage(skin = "red", # personnalisation du thème
# En-tête
dashboardHeader(title = "Analyse Climat Fr "),
# Barre de menu
dashboardSidebar(
# Menu avec la liste des onglets
sidebarMenu(
menuItem("Resultat Textuel", tabName = "onglet1", icon = icon("ad")),
menuItem("Tableau", tabName = "onglet2", icon = icon("table")),
menuItem("Graphique", tabName = "onglet3", icon = icon("eye"),
menuSubItem("Barplot", tabName = "test1", icon = icon("chart-bar")),
menuSubItem("Pie", tabName = "test2", icon = icon("chart-pie"))),
menuItem("Carte", tabName = "onglet4", icon = icon("map")),
sidebarPanel("Paramètres modifiables" ),
selectInput(inputId = "mes_villes",
label = "Selectionner une ville :",
choices = list("Nantes"="Nantes",
"Nice"="Nice",
"Lille"="Lille",
"Clermont-Ferrand"="Clermont-Ferrand"),
selected = 1),
sliderInput(inputId = "mes_dates",label = "Slider",min = 1973,max = 2016,
value = c(1973,2016))
)
),
# "Corps" = contenu / sorties
dashboardBody(
# Contenu de chacun des onglets
tabItems(
tabItem(tabName = "onglet1",
fluidRow(
column(width = 12,
box(id = "res2", title = "Nombre de jours de Pluie",
status = "info", solidHeader = TRUE, collapsible = TRUE,
textOutput(outputId = "mon_resultat"))
)
)
),
tabItem(tabName = "onglet2",
fluidRow(
h2("Tableau"), dataTableOutput("mon_tableau"))),
tabItem(tabName = "test1",
fluidRow(
h2("Barplot"), amChartsOutput("mon_graph"))),
tabItem(tabName = "test2",
h2("Pie"),amChartsOutput("mon_pie")),
tabItem(tabName = "onglet4",
h2("Carte"),leafletOutput("ma_carte"))
)
)
)