-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
97 lines (70 loc) · 4.36 KB
/
ui.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
95
ui <- htmlTemplate(filename = "www/index.html",
pagina = fluidPage(
#useSever(),
column(width = 4,
selectInput("data", "Selecciona una delegación:", choices = c("Todas las alcaldías", delegaciones)),
echarts4rOutput("monto_aprob", height = 350),
echarts4rOutput("monto_ejer", height = 350)
),
column(width = 8,
leafletOutput("mapa", width = 800, height = 800)
)
),
estratos_part = fluidPage(
fluidPage(width = 3,
div(style="display: inline-block;vertical-align:top; width: 240px;",selectInput("estrato", "Escoge un estrato social:",
choices = estrato_select)),
div(style="display: inline-block;vertical-align:top; width: 25px;",HTML("<br>")),
div(style="display: inline-block;vertical-align:top; width: 240px;",selectInput("deleg_est", "Escoge una delegación:",
choices = c("Todas las alcaldías", delegaciones))),
div(style="display: inline-block;vertical-align:top; width: 25px;",HTML("<br>")),
div(style="display: inline-block;vertical-align:top; width: 240px;",selectInput("filtfinal", "Selecciona el dato:",
choices = NULL)),
div(style="display: inline-block;vertical-align:top; width: 25px;",HTML("<br>")),
div(style="display: inline-block;vertical-align:top; width: 240px;",awesomeRadio(
inputId = "sexoedad",
label = "Visualizar por:",
choices = c("sexo", "edad"),
selected = "sexo",
inline = FALSE,
status = "success"
))
),
column(width = 6,
echarts4rOutput("graf_estr")
),
column(
width = 6,
leafletOutput("mapa_estratos", width = 500, height = 500),
br(),br(),br()
)
),
est_finales = fluidPage(
column(width = 12,
align=" center",
echarts4rOutput("comp_final", height = 250, width = 1100)
),
column(width = 6,
align="center",
echarts4rOutput("pie_final", width = 600, height = 350),
),
column(width = 6,
align="center",
echarts4rOutput("rel_final", width = 600, height = 350),
)
),
est_finales_suelo = fluidPage(
column(width = 12,
align=" center",
echarts4rOutput("comp_final_suelo", height = 250, width = 1100)
),
column(width = 6,
align="center",
echarts4rOutput("hist_final", width = 600, height = 350),
),
column(width = 6,
align="center",
echarts4rOutput("rel_final_suelo", width = 600, height = 350),
)
)
)