mlc_bp_sheet

.Rproj.user/shared/notebooks/paths

@@ -1,3 +1,7 @@
-/home/mcipponeri/dnme_apps/eoh.Rmd="E5B9FA06"
-/home/mcipponeri/dnme_apps/internacional.Rmd="302641D6"
-/home/ssoubiel/trabajos/dnme_apps/conectividad.Rmd="81905E35"
+/home/esoutullo/monitorProvincias/R/mod_tab_alojamiento.R="4383919D"
+/home/esoutullo/monitorProvincias/R/mod_tab_areas.R="90A8D6AA"
+/home/jurricarietl/dnme_apps/areas_protegidas.Rmd="7CD36197"
+/home/jurricarietl/dnme_apps/mulc.Rmd="E0639233"
+/home/ssoubiel/trabajos/cnrt/scripts/procesamiento_servicios_regulares/2_armado_base_trabajo.R="D3EBE904"
+/home/ssoubiel/trabajos/dnme_apps/conectividad.Rmd="9EDFA5A5"
+/home/ssoubiel/trabajos/dnme_apps/conectividad_terrestre.Rmd="D14421E8"

mulc.Rmd

@@ -1069,3 +1069,32 @@ Para recibir las novedades del SINTA escribíle al bot de Telegram de la DNMyE [
 
 :::
 
+```{r}
+url <- 'https://docs.google.com/spreadsheets/d/1uA3kJ-B-FIHruDgHJmawUxKmHFcDpJ5bFHduPtLMuTk/edit?usp=sharing'
+
+ver <- read_sheet(url)
+
+mulc_resumen <- tabla1 %>% 
+  mutate(balanza =cobros-pagos)
+
+
+  
+trimestral <- tabla9 %>% select(anio,trim,fecha,categoria=turismo_pagos,pagos=value) %>% 
+   left_join(tabla7%>% select(anio,trim,fecha,categoria=turismo_cobros,cobros=value)) %>% 
+  mutate(balanza = cobros - pagos) 
+
+anual <- trimestral %>% 
+  group_by(anio,categoria) %>% 
+  summarise(cobros = sum(cobros),
+            pagos=sum(pagos,na.rm=T)) %>% 
+  ungroup() %>% 
+  mutate(balanza = cobros-pagos)
+
+write_sheet(mulc_resumen,ss=url,sheet='mulc_mensual')
+write_sheet(trimestral,ss=url,sheet='trimestral')
+write_sheet(anual,ss=url,sheet='anual')
+
+
+
+```
+