subo tarjeta eoh tablero

dnme-minturdep · May 22, 2024 · a0f6f83 · a0f6f83
1 parent 0aadb02
commit a0f6f83
Show file tree

Hide file tree

Showing 9 changed files with 122 additions and 103 deletions.
diff --git a/.Rproj.user/shared/notebooks/paths b/.Rproj.user/shared/notebooks/paths
@@ -1,4 +1,5 @@
-/home/mcipponeri/dnme_apps/eoh.Rmd="E2D75A31"
+/home/esoutullo/dnme_apps/index.Rmd="313863DD"
+/home/esoutullo/recursos.R="60F9E7A1"
 /home/mcipponeri/informes_pdf/eoh/eoh.Rmd="0860C381"
 /home/spinelli/ECONOMIA/dnme_apps/empleo.Rmd="D182E1D0"
 /home/ssoubiel/trabajos/dnme_apps/conectividad.Rmd="D6491511"
diff --git a/content/recursos.R b/content/recursos.R
@@ -5,11 +5,11 @@ data.frame(
   recurso = c("Conectividad Terrestre","Conectividad Aérea", "Turismo Internacional Reporte", "Ocupación Hotelera", "Áreas Protegidas Reporte", 
               "Áreas Protegidas Tablero","EVYTH", "Turismo Internacional Tablero",
               "PUNA", "MULC", "Empleo", "mapeAr", "Agencias", "SIG", "CRUCERISMO", "Conectividad Aérea Reporte",
-              "Indicadores ODS","Índice Turístico","Últimos datos"),
+              "Indicadores ODS","Índice Turístico","Últimos datos","Ocupación Hotelera Tablero"),
   src = c("img/conectividad-terrestre.png", "img/conectividad.png","img/ti.png", "img/eoh.png","img/parques.png",
           "img/parques_tablero.png","img/evyth.png","img/ti_dash.png" ,
           "img/puna.png", "img/mulc.png", "img/empleo.png", "img/mapeAr.png", "img/agencias.png", "img/visor.png",
-          "img/crucerismo.png", "img/conectividad_aerea.png","img/indicadores_ods.png","img/indice.png","img/ultimos_datos.png"),
+          "img/crucerismo.png", "img/conectividad_aerea.png","img/indicadores_ods.png","img/indice.png","img/ultimos_datos.png", "img/eoh_tablero.png"),
   url = c("https://tableros.yvera.tur.ar/conectividad_terrestre/", 
           "https://tableros.yvera.tur.ar/conectividad/",
           "https://tableros.yvera.tur.ar/internacional.html",
@@ -28,7 +28,8 @@ data.frame(
           "https://tableros.yvera.tur.ar/conectividad.html",
           "https://tableros.yvera.tur.ar/tablero_ODS",
           "https://tableros.yvera.tur.ar/indice_turistico",
-          "https://tableros.yvera.tur.ar/tablero_ultimos_datos/"
+          "https://tableros.yvera.tur.ar/tablero_ultimos_datos/",
+          "https://tableros.yvera.tur.ar/tablero_eoh/"
   ),
   description  = c("Tablero interactivo con información de servicios regulares interurbanos de buses",
                    "Tablero interactivo con información aerocomercial para el turismo",
@@ -49,33 +50,35 @@ data.frame(
                    "Reporte mensual sobre los últimos datos del sector aerocomercial a partir de la información de la Administración Nacional de Aviación Civil",
                    "Tablero interactivo para el seguimiento de indicadores de turismo en Argentina relacionados con los Objetivos de Desarrollo Sostenible (ODS)",
                    "Tablero interactivo para la exploración del Índice Turístico de Localidades",
-                   "Tablero interactivo con los últimos datos del turismo en Argentina"
+                   "Tablero interactivo con los últimos datos del turismo en Argentina",
+                   "Tablero interactivo con datos históricos de la Encuesta de Ocupación Hotelera (EOH)"
   ),
   tags = c("Tablero", "Tablero","Reporte","Reporte","Reporte","Tablero","Reporte","Tablero", "Tablero", "Reporte", 
-           "Reporte", "Tablero", "Tablero", "Tablero", "Tablero", "Reporte", "Tablero","Tablero","Tablero"),
-  Todos = c(1, 1,1, 1,1, 1, 1, 1, 1, 1, 1, 1,1,1,1,1,1,1,1),
-  Tablero = c(1, 1, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1,1,1,1,0,1,1,1),
-  Reporte = c(0, 0,1, 1, 1,0, 1, 0, 0, 1, 1, 0,0,0,0, 1,0,0,0)) %>%
+           "Reporte", "Tablero", "Tablero", "Tablero", "Tablero", "Reporte", "Tablero","Tablero","Tablero","Tablero"),
+  Todos = c(1, 1,1, 1,1, 1, 1, 1, 1, 1, 1, 1,1,1,1,1,1,1,1,1),
+  Tablero = c(1, 1, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1,1,1,1,0,1,1,1,1),
+  Reporte = c(0, 0,1, 1, 1,0, 1, 0, 0, 1, 1, 0,0,0,0, 1,0,0,0,0)) %>%
   as_tibble() %>%
-  mutate(orden = c(10,
-                   8,
-                   3,
-                   5,
-                   7,
-                   6,
-                   4,
-                   2,
-                   12,
-                   14,
-                   13,
-                   18,
-                   19,
-                   15,
-                   11,
-                   9,
-                   17,
-                   16,
-                   1
-  )) %>%   # OREDNO POR TEMA Y NO POR TIPO DE RECURSO
-  arrange(orden)  %>%
-  write_csv(here::here("content", "recursos.csv"))
+  arrange(match(recurso, c("Últimos datos",
+                           "Turismo Internacional Tablero",
+                           "Turismo Internacional Reporte",
+                           "EVYTH",
+                           "Ocupación Hotelera Tablero",
+                           "Ocupación Hotelera",
+                           "Áreas Protegidas Tablero",
+                           "Áreas Protegidas Reporte",
+                           "Conectividad Aérea", 
+                           "Conectividad Aérea Reporte",
+                           "Conectividad Terrestre",
+                           "CRUCERISMO", 
+                           "PUNA",
+                           "Empleo",
+                           "MULC", 
+                           "SIG",
+                           "Índice Turístico",
+                           "Indicadores ODS",
+                           "mapeAr", 
+                           "Agencias"))) %>% 
+  mutate(orden = row_number()) %>%   # ORDENO POR TEMA Y NO POR TIPO DE RECURSO
+#arrange(orden)  %>%
+write_csv(here::here("content", "recursos.csv"))
diff --git a/content/recursos.csv b/content/recursos.csv
@@ -4,18 +4,19 @@ Turismo Internacional Tablero,img/ti_dash.png,https://tableros.yvera.tur.ar/turi
 Turismo Internacional Reporte,img/ti.png,https://tableros.yvera.tur.ar/internacional.html,"El reporte presenta la última información de turismo receptivo, emisivo y balanza turística
                    por todas las vías (aéreo, terrestre y fluvial / marítimo)",Reporte,1,0,1,3
 EVYTH,img/evyth.png,https://tableros.yvera.tur.ar/interno.html,Reporte de los últimos datos de Turismo Interno estimados por la Encuesta de Viajes y Turismo de los Hogares,Reporte,1,0,1,4
-Ocupación Hotelera,img/eoh.png,https://tableros.yvera.tur.ar/eoh.html,Presenta los últimos datos disponibles de la Encuesta de Ocupación Hotelera (EOH),Reporte,1,0,1,5
-Áreas Protegidas Tablero,img/parques_tablero.png,https://tableros.yvera.tur.ar/tablero_areas_protegidas,Tablero para la consulta de información de visitas a Áreas Protegidas Nacionales y Provinciales,Tablero,1,1,0,6
-Áreas Protegidas Reporte,img/parques.png,https://tableros.yvera.tur.ar/areas_protegidas.html,Información de visitas a Áreas Protegidas Nacionales y Provinciales,Reporte,1,0,1,7
-Conectividad Aérea,img/conectividad.png,https://tableros.yvera.tur.ar/conectividad/,Tablero interactivo con información aerocomercial para el turismo,Tablero,1,1,0,8
-Conectividad Aérea Reporte,img/conectividad_aerea.png,https://tableros.yvera.tur.ar/conectividad.html,Reporte mensual sobre los últimos datos del sector aerocomercial a partir de la información de la Administración Nacional de Aviación Civil,Reporte,1,0,1,9
-Conectividad Terrestre,img/conectividad-terrestre.png,https://tableros.yvera.tur.ar/conectividad_terrestre/,Tablero interactivo con información de servicios regulares interurbanos de buses,Tablero,1,1,0,10
-CRUCERISMO,img/crucerismo.png,https://tableros.yvera.tur.ar/crucerismo,Tablero interactivo con información sobre el crucerismo en Argentina,Tablero,1,1,0,11
-PUNA,img/puna.png,https://tableros.yvera.tur.ar/puna/,Tablero para la consulta de estimaciones agregadas del Padrón Único Nacional de Alojamientos (PUNA),Tablero,1,1,0,12
-Empleo,img/empleo.png,https://tableros.yvera.tur.ar/empleo.html,Reporte sobre empleo registrado en las ramas características del turismo,Reporte,1,0,1,13
-MULC,img/mulc.png,https://tableros.yvera.tur.ar/mulc.html,Reporte sobre transacciones en divisas relacionadas al turismo en el Mercado de Cambios (BCRA),Reporte,1,0,1,14
-SIG,img/visor.png,https://tableros.yvera.tur.ar/inversiones,Visor de Información Geográfica de Turismo para Plataforma de Inversiones,Tablero,1,1,0,15
-Índice Turístico,img/indice.png,https://tableros.yvera.tur.ar/indice_turistico,Tablero interactivo para la exploración del Índice Turístico de Localidades,Tablero,1,1,0,16
-Indicadores ODS,img/indicadores_ods.png,https://tableros.yvera.tur.ar/tablero_ODS,Tablero interactivo para el seguimiento de indicadores de turismo en Argentina relacionados con los Objetivos de Desarrollo Sostenible (ODS),Tablero,1,1,0,17
-mapeAr,img/mapeAr.png,https://tableros.yvera.tur.ar/mapeAr,Tablero para la generación de mapas con información georeferenciada de Turismo,Tablero,1,1,0,18
-Agencias,img/agencias.png,https://tableros.yvera.tur.ar/agencias,Tablero con información del Registro de Agencias de Viajes de la Dirección Nacional de Agencias de Viajes,Tablero,1,1,0,19
+Ocupación Hotelera Tablero,img/eoh_tablero.png,https://tableros.yvera.tur.ar/tablero_eoh/,Tablero interactivo con datos históricos de la Encuesta de Ocupación Hotelera (EOH),Tablero,1,1,0,5
+Ocupación Hotelera,img/eoh.png,https://tableros.yvera.tur.ar/eoh.html,Presenta los últimos datos disponibles de la Encuesta de Ocupación Hotelera (EOH),Reporte,1,0,1,6
+Áreas Protegidas Tablero,img/parques_tablero.png,https://tableros.yvera.tur.ar/tablero_areas_protegidas,Tablero para la consulta de información de visitas a Áreas Protegidas Nacionales y Provinciales,Tablero,1,1,0,7
+Áreas Protegidas Reporte,img/parques.png,https://tableros.yvera.tur.ar/areas_protegidas.html,Información de visitas a Áreas Protegidas Nacionales y Provinciales,Reporte,1,0,1,8
+Conectividad Aérea,img/conectividad.png,https://tableros.yvera.tur.ar/conectividad/,Tablero interactivo con información aerocomercial para el turismo,Tablero,1,1,0,9
+Conectividad Aérea Reporte,img/conectividad_aerea.png,https://tableros.yvera.tur.ar/conectividad.html,Reporte mensual sobre los últimos datos del sector aerocomercial a partir de la información de la Administración Nacional de Aviación Civil,Reporte,1,0,1,10
+Conectividad Terrestre,img/conectividad-terrestre.png,https://tableros.yvera.tur.ar/conectividad_terrestre/,Tablero interactivo con información de servicios regulares interurbanos de buses,Tablero,1,1,0,11
+CRUCERISMO,img/crucerismo.png,https://tableros.yvera.tur.ar/crucerismo,Tablero interactivo con información sobre el crucerismo en Argentina,Tablero,1,1,0,12
+PUNA,img/puna.png,https://tableros.yvera.tur.ar/puna/,Tablero para la consulta de estimaciones agregadas del Padrón Único Nacional de Alojamientos (PUNA),Tablero,1,1,0,13
+Empleo,img/empleo.png,https://tableros.yvera.tur.ar/empleo.html,Reporte sobre empleo registrado en las ramas características del turismo,Reporte,1,0,1,14
+MULC,img/mulc.png,https://tableros.yvera.tur.ar/mulc.html,Reporte sobre transacciones en divisas relacionadas al turismo en el Mercado de Cambios (BCRA),Reporte,1,0,1,15
+SIG,img/visor.png,https://tableros.yvera.tur.ar/inversiones,Visor de Información Geográfica de Turismo para Plataforma de Inversiones,Tablero,1,1,0,16
+Índice Turístico,img/indice.png,https://tableros.yvera.tur.ar/indice_turistico,Tablero interactivo para la exploración del Índice Turístico de Localidades,Tablero,1,1,0,17
+Indicadores ODS,img/indicadores_ods.png,https://tableros.yvera.tur.ar/tablero_ODS,Tablero interactivo para el seguimiento de indicadores de turismo en Argentina relacionados con los Objetivos de Desarrollo Sostenible (ODS),Tablero,1,1,0,18
+mapeAr,img/mapeAr.png,https://tableros.yvera.tur.ar/mapeAr,Tablero para la generación de mapas con información georeferenciada de Turismo,Tablero,1,1,0,19
+Agencias,img/agencias.png,https://tableros.yvera.tur.ar/agencias,Tablero con información del Registro de Agencias de Viajes de la Dirección Nacional de Agencias de Viajes,Tablero,1,1,0,20
diff --git a/docs/content/recursos.R b/docs/content/recursos.R
@@ -5,11 +5,11 @@ data.frame(
   recurso = c("Conectividad Terrestre","Conectividad Aérea", "Turismo Internacional Reporte", "Ocupación Hotelera", "Áreas Protegidas Reporte", 
               "Áreas Protegidas Tablero","EVYTH", "Turismo Internacional Tablero",
               "PUNA", "MULC", "Empleo", "mapeAr", "Agencias", "SIG", "CRUCERISMO", "Conectividad Aérea Reporte",
-              "Indicadores ODS","Índice Turístico","Últimos datos"),
+              "Indicadores ODS","Índice Turístico","Últimos datos","Ocupación Hotelera Tablero"),
   src = c("img/conectividad-terrestre.png", "img/conectividad.png","img/ti.png", "img/eoh.png","img/parques.png",
           "img/parques_tablero.png","img/evyth.png","img/ti_dash.png" ,
           "img/puna.png", "img/mulc.png", "img/empleo.png", "img/mapeAr.png", "img/agencias.png", "img/visor.png",
-          "img/crucerismo.png", "img/conectividad_aerea.png","img/indicadores_ods.png","img/indice.png","img/ultimos_datos.png"),
+          "img/crucerismo.png", "img/conectividad_aerea.png","img/indicadores_ods.png","img/indice.png","img/ultimos_datos.png", "img/eoh_tablero.png"),
   url = c("https://tableros.yvera.tur.ar/conectividad_terrestre/", 
           "https://tableros.yvera.tur.ar/conectividad/",
           "https://tableros.yvera.tur.ar/internacional.html",
@@ -28,7 +28,8 @@ data.frame(
           "https://tableros.yvera.tur.ar/conectividad.html",
           "https://tableros.yvera.tur.ar/tablero_ODS",
           "https://tableros.yvera.tur.ar/indice_turistico",
-          "https://tableros.yvera.tur.ar/tablero_ultimos_datos/"
+          "https://tableros.yvera.tur.ar/tablero_ultimos_datos/",
+          "https://tableros.yvera.tur.ar/tablero_eoh/"
   ),
   description  = c("Tablero interactivo con información de servicios regulares interurbanos de buses",
                    "Tablero interactivo con información aerocomercial para el turismo",
@@ -49,33 +50,35 @@ data.frame(
                    "Reporte mensual sobre los últimos datos del sector aerocomercial a partir de la información de la Administración Nacional de Aviación Civil",
                    "Tablero interactivo para el seguimiento de indicadores de turismo en Argentina relacionados con los Objetivos de Desarrollo Sostenible (ODS)",
                    "Tablero interactivo para la exploración del Índice Turístico de Localidades",
-                   "Tablero interactivo con los últimos datos del turismo en Argentina"
+                   "Tablero interactivo con los últimos datos del turismo en Argentina",
+                   "Tablero interactivo con datos históricos de la Encuesta de Ocupación Hotelera (EOH)"
   ),
   tags = c("Tablero", "Tablero","Reporte","Reporte","Reporte","Tablero","Reporte","Tablero", "Tablero", "Reporte", 
-           "Reporte", "Tablero", "Tablero", "Tablero", "Tablero", "Reporte", "Tablero","Tablero","Tablero"),
-  Todos = c(1, 1,1, 1,1, 1, 1, 1, 1, 1, 1, 1,1,1,1,1,1,1,1),
-  Tablero = c(1, 1, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1,1,1,1,0,1,1,1),
-  Reporte = c(0, 0,1, 1, 1,0, 1, 0, 0, 1, 1, 0,0,0,0, 1,0,0,0)) %>%
+           "Reporte", "Tablero", "Tablero", "Tablero", "Tablero", "Reporte", "Tablero","Tablero","Tablero","Tablero"),
+  Todos = c(1, 1,1, 1,1, 1, 1, 1, 1, 1, 1, 1,1,1,1,1,1,1,1,1),
+  Tablero = c(1, 1, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1,1,1,1,0,1,1,1,1),
+  Reporte = c(0, 0,1, 1, 1,0, 1, 0, 0, 1, 1, 0,0,0,0, 1,0,0,0,0)) %>%
   as_tibble() %>%
-  mutate(orden = c(10,
-                   8,
-                   3,
-                   5,
-                   7,
-                   6,
-                   4,
-                   2,
-                   12,
-                   14,
-                   13,
-                   18,
-                   19,
-                   15,
-                   11,
-                   9,
-                   17,
-                   16,
-                   1
-  )) %>%   # OREDNO POR TEMA Y NO POR TIPO DE RECURSO
-  arrange(orden)  %>%
-  write_csv(here::here("content", "recursos.csv"))
+  arrange(match(recurso, c("Últimos datos",
+                           "Turismo Internacional Tablero",
+                           "Turismo Internacional Reporte",
+                           "EVYTH",
+                           "Ocupación Hotelera Tablero",
+                           "Ocupación Hotelera",
+                           "Áreas Protegidas Tablero",
+                           "Áreas Protegidas Reporte",
+                           "Conectividad Aérea", 
+                           "Conectividad Aérea Reporte",
+                           "Conectividad Terrestre",
+                           "CRUCERISMO", 
+                           "PUNA",
+                           "Empleo",
+                           "MULC", 
+                           "SIG",
+                           "Índice Turístico",
+                           "Indicadores ODS",
+                           "mapeAr", 
+                           "Agencias"))) %>% 
+  mutate(orden = row_number()) %>%   # ORDENO POR TEMA Y NO POR TIPO DE RECURSO
+#arrange(orden)  %>%
+write_csv(here::here("content", "recursos.csv"))