reordeno tablas

d4t4tur · Dec 20, 2023 · c3f391a · c3f391a
1 parent 0b77fe5
commit c3f391a
Show file tree

Hide file tree

Showing 23 changed files with 48 additions and 49 deletions.
diff --git a/docs/empresas.html b/docs/empresas.html
diff --git a/docs/interno.html b/docs/interno.html
diff --git a/docs/outputs/alojamiento.rds b/docs/outputs/alojamiento.rds
diff --git a/docs/outputs/edad.rds b/docs/outputs/edad.rds
diff --git a/docs/outputs/graph_puna.rds b/docs/outputs/graph_puna.rds
diff --git a/docs/outputs/interno_ppales.rds b/docs/outputs/interno_ppales.rds
diff --git a/docs/outputs/motivo.rds b/docs/outputs/motivo.rds
diff --git a/docs/outputs/tipo_turismo.rds b/docs/outputs/tipo_turismo.rds
diff --git a/docs/outputs/transporte.rds b/docs/outputs/transporte.rds
diff --git a/docs/padron.html b/docs/padron.html
diff --git a/docs/scripts/interno.R b/docs/scripts/interno.R
@@ -11,7 +11,8 @@ source(here::here("scripts","auxiliar_evyth.R"))
 #### cargo y preparo la base ####
 # b_evyth <- read_csv("http://datos.yvera.gob.ar/dataset/b5819e9b-5edf-4aad-bd39-a81158a2b3f3/resource/645e5505-68ee-4cfa-90f9-fcc9a4a34a85/download/evyth_microdatos.csv")
 b_evyth <- arrow::read_parquet("/srv/DataDNMYE/evyth/base_trabajo/evyth_base_de_trabajo.parquet",
-                               as_data_frame = TRUE) #%>%
+                               as_data_frame = TRUE) %>%
+  arrange(desc(anio))
 # rename_with(.cols = starts_with("gasto_pc_constantes"),
 #             .fn = ~ str_remove(.x, "[^gasto_pc_constantes$].*"))
 provincias_region <- b_evyth %>% distinct(provincia_destino, region_destino)

diff --git a/docs/scripts/padron.R b/docs/scripts/padron.R
@@ -47,7 +47,7 @@ localidades_data <- serie_puna %>%
   ungroup()
 
 
-tabla_tipo <- SharedData$new(tabla_tipo, ~ Provincia, group = "Provincia")
+tabla_tipo <- SharedData$new(tabla_tipo %>% arrange(desc(Año)) , ~ Provincia, group = "Provincia")
 localidades_data <- SharedData$new(localidades_data, ~ Provincia, group = "Provincia")
 
 dt_puna <- datatable(tabla_tipo, extensions = 'Buttons',

diff --git a/docs/search.json b/docs/search.json
diff --git a/empresas.Rmd b/empresas.Rmd
@@ -31,8 +31,6 @@ empresas
 
 ## Recursos relacionados
 
-- Tablero: https://tableros.yvera.tur.ar/empleo.html
-
-- Datos CEPXXI: [Mapa Productivo Laboral Argentino](https://app.powerbi.com/view?r=eyJrIjoiM2Q4MjQ5ODctYzE5MS00MTAyLWI3YWEtMTUwYWMzNWVjZmQyIiwidCI6ImNiODg0ZGI1LTI0ODUtNGY5Yi05MzhlLTNlNjIxZjIyMjU3YiIsImMiOjR9)
+- Reporte: https://tableros.yvera.tur.ar/empleo.html
 
 - [Metodología](metodologia.html#empresas-turísticas)
diff --git a/outputs/alojamiento.rds b/outputs/alojamiento.rds
diff --git a/outputs/edad.rds b/outputs/edad.rds
diff --git a/outputs/graph_puna.rds b/outputs/graph_puna.rds
diff --git a/outputs/interno_ppales.rds b/outputs/interno_ppales.rds
diff --git a/outputs/motivo.rds b/outputs/motivo.rds
diff --git a/outputs/tipo_turismo.rds b/outputs/tipo_turismo.rds
diff --git a/outputs/transporte.rds b/outputs/transporte.rds
diff --git a/scripts/interno.R b/scripts/interno.R
@@ -11,7 +11,8 @@ source(here::here("scripts","auxiliar_evyth.R"))
 #### cargo y preparo la base ####
 # b_evyth <- read_csv("http://datos.yvera.gob.ar/dataset/b5819e9b-5edf-4aad-bd39-a81158a2b3f3/resource/645e5505-68ee-4cfa-90f9-fcc9a4a34a85/download/evyth_microdatos.csv")
 b_evyth <- arrow::read_parquet("/srv/DataDNMYE/evyth/base_trabajo/evyth_base_de_trabajo.parquet",
-                               as_data_frame = TRUE) #%>%
+                               as_data_frame = TRUE) %>%
+  arrange(desc(anio))
 # rename_with(.cols = starts_with("gasto_pc_constantes"),
 #             .fn = ~ str_remove(.x, "[^gasto_pc_constantes$].*"))
 provincias_region <- b_evyth %>% distinct(provincia_destino, region_destino)

diff --git a/scripts/padron.R b/scripts/padron.R
@@ -47,7 +47,7 @@ localidades_data <- serie_puna %>%
   ungroup()
 
 
-tabla_tipo <- SharedData$new(tabla_tipo, ~ Provincia, group = "Provincia")
+tabla_tipo <- SharedData$new(tabla_tipo %>% arrange(desc(Año)) , ~ Provincia, group = "Provincia")
 localidades_data <- SharedData$new(localidades_data, ~ Provincia, group = "Provincia")
 
 dt_puna <- datatable(tabla_tipo, extensions = 'Buttons',