Merge pull request #204 from mcippo/master

Actualizo EOH a febrero 2024
dnme-minturdep · Apr 26, 2024 · c14fa7e · c14fa7e
2 parents 1283575 + cbbaf53
commit c14fa7e
Show file tree

Hide file tree

Showing 6 changed files with 639 additions and 624 deletions.
diff --git a/.Rproj.user/shared/notebooks/paths b/.Rproj.user/shared/notebooks/paths
@@ -1,3 +1,2 @@
+/home/mcipponeri/dnme_apps/eoh.Rmd="9A84A39C"
 /home/mcipponeri/dnme_apps/internacional.Rmd="F5CE28B6"
-/home/spinelli/ECONOMIA/dnme_apps/mulc.Rmd="AF30C9B6"
-/home/ssoubiel/trabajos/dnme_apps/conectividad.Rmd="3910D2C0"
diff --git a/docs/eoh.html b/docs/eoh.html
diff --git a/docs/eoh_files/figure-html5/unnamed-chunk-11-1.png b/docs/eoh_files/figure-html5/unnamed-chunk-11-1.png
diff --git a/docs/eoh_files/figure-html5/unnamed-chunk-9-1.png b/docs/eoh_files/figure-html5/unnamed-chunk-9-1.png
diff --git a/docs/search.json b/docs/search.json
diff --git a/eoh.Rmd b/eoh.Rmd
@@ -37,8 +37,8 @@ Sys.setlocale(locale = "es_AR.UTF-8")
 
 
 # Definir mes / trimestre / año de referencia para títulos ----
-fecha <- as.Date("2024-01-01")
-mes <- "Enero"
+fecha <- as.Date("2024-02-01")
+mes <- "Febrero"
 #trimestre <- "2do"
 anio <- "2024"
 
@@ -203,11 +203,6 @@ tablafinal_ficha <- tabla1_A %>% select(indice_tiempo, origen_viajeros, pernocte
   mutate(pernoctes = pernoctes/1000000,
          viajeros = viajeros/1000000)
 
-# En febrero no correr esto
-
-tablafinal_ficha <- tablafinal_ficha %>% 
-  filter(indice_tiempo!="Acum. 2024") 
-
 
 ```
 
@@ -808,8 +803,8 @@ check <- nrow(tabla3_A[tabla3_A$estadia_total == sort(tabla3_A$estadia_total, na
 pernoctaciones_localidad <-read.csv("/srv/DataDNMYE/eoh/recursos/recursos_ficha/pernoctes-viajeros-y-estadia-media-por-localidad.csv", encoding = "UTF-8")
 
 #Localidades que no corresponde mostrar datos (AD HOC,INDEC)
-localidades_sin_datos <- c("Corrientes","Valle de Uco")
-localidades_insuficiencia <- c("La Angostura","Calafate","Las Grutas","Neuquén")
+localidades_sin_datos <- c("Corrientes","Valle de Uco","Las Grutas")
+localidades_insuficiencia <- c("La Angostura","Calafate")
 
 #Tabla localidades
 tabla4 <- pernoctaciones_localidad %>%