-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
145 lines (135 loc) · 10.5 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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
#
# This is the user-interface definition of a Shiny web application. You can
# run the application by clicking 'Run App' above.
#
# Find out more about building applications with Shiny here:
#
# http://shiny.rstudio.com/
#
tagList(dashboardPage(
dashboardHeader(title = "Indicadores ODS", titleWidth = 250,
tags$li(a(href = 'https://www.yvera.tur.ar/sinta/',
img(src = 'https://tableros.yvera.tur.ar/recursos/logo_sinta.png',
height = "30px"),
style = "padding-top:10px; padding-bottom:10px;"),
class = "dropdown")),
dashboardSidebar(
sidebarMenu(
menuItem(tabName = "summary", "Resumen"),
menuItem(tabName = "series", "Series"),
menuItem(tabName = "metodologia", "Metodología"))
),
dashboardBody(
tags$head(includeHTML("/srv/DataDNMYE/login_shiny/ods.html")),
useWaiter(),
#waiter_show_on_load(html = loading_screen, color = "white"),
useShinyjs(),
tags$head(
# Include our custom CSS
includeCSS("styles.css")
),
tabItems(
####RESUMEN#####
tabItem(
tabName = "summary",
fluidRow(
h4(tags$b("Indicadores para el seguimiento de la actividad turística en el marco de los Objetivos de Desarrollo Sostenible (ODS) ")))
,
fluidRow(
h4(tags$b("Impacto económico y empleo")))
,
fluidRow(
valueBox(tags$p(style = "font-size: 160%;", cst_empleo),
tags$p(style = "font-size: 140%;", "Puestos de trabajo en industrias turísticas (2022)"),
icon = icon("", verify_fa = FALSE), width = 4, color = "navy"),
valueBox(tags$p(style = "font-size: 160%;", empleo_informal),
tags$p(style = "font-size: 140%;", "Tasa de informalidad del empleo asalariado turístico (2022)"),
icon = icon("", verify_fa = FALSE), width = 4, color = "navy"),
valueBox(tags$p(style = "font-size: 160%;", cst_pibdt),
tags$p(style = "font-size: 140%;", "PIB turístico respecto del PIB total (2022)"),
icon = icon("", verify_fa = FALSE), width = 4, color = "navy")),
fluidRow(
h4( tags$b("Acceso al turismo y desigualdad"))),
fluidRow(
valueBox(tags$p(style = "font-size: 240%;", propension),
tags$p(style = "font-size: 110%;", "Propensión a viajar (2022)"),
icon = icon("", verify_fa = FALSE), width = 4, color = "red"),
column(width=4,
column(width=12,
valueBox(tags$p(style = "font-size: 90%;", gini_viajes),
tags$p(style = "font-size: 120%;", "Índice de Gini de viajes turísticos (2022)"),
icon = icon("", verify_fa = FALSE),width=NULL, color = "aqua"),
valueBox(tags$p(style = "font-size: 90%;", gini_viajes_ocio),
tags$p(style = "font-size: 120%;", "Índice de Gini de viajes turísticos de ocio (2022)"),
icon = icon("", verify_fa = FALSE),width=NULL, color = "aqua"))),
valueBox(tags$p(style = "font-size: 90%;", gini_gasto),
tags$p(style = "font-size: 120%;", "Índice de Gini del gasto turístico (2022)"),
icon = icon("", verify_fa = FALSE), width = 4, color = "aqua")
)
),
####GRÁFICOS#####
tabItem(
tabName = "series",
fluidRow(
box(width = 12, tags$p(style = "text-align: center; font-size: 20px;","Series de tiempo de los indicadores ODS"))
),
fluidRow(
box(width = 4, status = "primary", solidHeader = TRUE,
title = "Puestos de trabajo en industrias turísticas (millones)", plotlyOutput("graph_cst_empleo", height = 200)),
box(width = 4, status = "primary", solidHeader = TRUE,
title = "Tasa de informalidad del empleo asalariado turístico (%)", plotlyOutput("informalidad_empleo", height = 200)),
box(width = 4, status = "primary", solidHeader = TRUE,
title = "PIB directo turístico respecto del PIB total (%)", plotlyOutput("graph_pibdt", height = 200))
),
fluidRow(
box(width = 4, status = "primary", solidHeader = TRUE,
title = "Propensión a viajar (%)", plotlyOutput("graph_propension", height = 200)),
box(width = 8, status = "primary", solidHeader = TRUE,
title = "Índices de Gini", plotlyOutput("graph_gini_todos", height = 200)))
),
####METODOLOGÍA#####
tabItem(
tabName = "metodologia",
fluidRow(width=12,
tabPanel("Metodología",
box(width = NULL,status = "primary", solidHeader = TRUE,
br(),
tags$b(style ="text-align: center; font-size: 20px;color:#252C4F;",'Definiciones y conceptos'),
br(),
tags$p(style = "font-size=14px","El tablero presenta un conjunto de indicadores que buscan reflejar el aporte del
turismo a los Objetivos de Desarrollo Sostenible (ODS) para nuestro país. El Documento de Trabajo
N°12: El turismo en los Objetivos de Desarrollo Sostenible aborda esta propuesta y describe en detalle las fuentas utilizadas y los indicadores elaborados"),
tags$b(style = "font-size=14px", style ="text-align: center; font-size: 20px;color:#252C4F;",'Fuentes de información'),
br(),
tags$p(style = "font-size=14px","Los indicadores que reflejan el aporte del turismo a la economía en su conjunto en términos de actividad
económica y empleo, y la tasa de informalidad de éste, provienen de la ",
tags$a(href="https://www.yvera.tur.ar/sinta/informe/info/cuenta-satelite-de-turismo", target = '_blank', "Cuenta Satélite de Turismo de Argentina (CST-A)"),
". El resto de los indicadores, que buscan medir el acceso al turismo y su nivel de desigualdad,
toman como fuente de los datos a la ",
tags$a(href="https://www.yvera.tur.ar/sinta/informe/info/encuesta-de-viajes-y-turismo-de-los-hogares-evyth", target = '_blank', "Encuesta de Viajes y Turismo de los Hogares (EVyTH)"),
", representativa de los grandes aglomerados del país."),
tags$b(style ="text-align: center; font-size: 20px;color:#252C4F;",'Indicadores'),
br(),
tags$p(style = "font-size=14px",tags$ul(tags$p(tags$b(" • Puestos de trabajo en industrias turísticas"),style = "font-size=14px",
": Surge de la suma de los puestos de trabajo existentes en
los establecimientos pertenecientes a las ramas de actividad clasificadas como características del turismo.
Incluye puestos de trabajo asalariados (registrados y no registrados) y no asalariados."),
tags$p(style = "font-size=14px",tags$b(style = "font-size=14px"," • Tasa de informalidad en el empleo asalariado turístico"),": Proporción de puestos de trabajo asalariados no registrados
con respecto al total de puestos de trabajo asalariados, en porcentaje, para ramas características del turismo."),
tags$p(style = "font-size=14px",tags$b(style = "font-size=14px"," • PIB turístico respecto del PIB total"),": la parte del PIB de la economía total atribuible directamente
al consumo turístico realizado dentro de la Argentina, ya sea por visitantes residentes o no residentes, como porcentaje del PIB total."),
tags$p(style = "font-size=14px",tags$b(style = "font-size=14px"," • Propensión a viajar "),": Proporción de la población que realizó al menos un viaje con pernocte durante el año de referencia."),
tags$p(style = "font-size=14px",tags$b(style = "font-size=14px"," • Índice de Gini de viajes turísticos "),": Medida de desigualdad habitual, aplicada a la cantidad total de viajes turísticos
realizados según quintil de ingresos de los hogares. Valores más cercanos a 0 implican mayor igualdad, mientras que valores más próximos a 100 reflejan una mayor desigualdad en la distribución de los viajes turísticos según ingresos de la población."),
tags$p(style = "font-size=14px",tags$b(" • Índice de Gini de viajes turísticos de ocio "),": El indicador, en este caso, tiene en cuenta únicamente los viajes con motivo de 'esparcimiento, ocio y recreación',
excluyéndose aquellos relacionados con la visita a familiares y amigos; trabajo, negocios, motivos profesionales; y otros."),
tags$p(style = "font-size=14px",tags$b(style = "font-size=14px"," • Índice de Gini del gasto turístico "),": Medida de desigualdad aplicada al gasto que los hogares tuvieron en el viaje, según quintil
de ingresos de los hogares.")))
)
)
)
)
)
)
),
tags$footer(includeHTML("/srv/shiny-server/recursos/shiny_footer.html")))