Skip to content

Commit

Permalink
Merge pull request #227 from lorevir/master
Browse files Browse the repository at this point in the history
actualizo
  • Loading branch information
eliansoutu authored Aug 1, 2024
2 parents f5cae90 + 44a7052 commit 3099118
Show file tree
Hide file tree
Showing 4 changed files with 454 additions and 455 deletions.
6 changes: 2 additions & 4 deletions .Rproj.user/shared/notebooks/paths
Original file line number Diff line number Diff line change
@@ -1,4 +1,2 @@
/home/jurricarietl/dnme_apps/mulc.Rmd="29BEBEC0"
/home/mcipponeri/informes_pdf/eoh/eoh.Rmd="9DB89A30"
/home/ssoubiel/trabajos/dnme_apps/conectividad.Rmd="0E3A33CE"
/home/ssoubiel/trabajos/dnme_apps/conectividad_terrestre.Rmd="9D76F1C1"
C:/Users/lprieto/Documents/proyectos_r/dnme_apps/areas_protegidas.Rmd="7B517B78"
C:/Users/lprieto/Documents/proyectos_r/informes_pdf/parques_nacionales/informe_pn.Rmd="1DA536C2"
9 changes: 5 additions & 4 deletions areas_protegidas.Rmd
Original file line number Diff line number Diff line change
Expand Up @@ -23,11 +23,11 @@ Sys.setlocale("LC_TIME", "es_AR.UTF-8")

```{r }
# Definir mes / trimestre / año de referencia para títulos ####
fecha <- "2024-05-01"
mes <- "mayo"
fecha <- "2024-06-01"
mes <- "junio"
anio <- "2024"
# parques_sin_dato <- c("los glaciares","los cardones","predelta")
parques_sin_dato <- c("pizarro","predelta", "laguna blanca")
parques_sin_dato <- c("pizarro","predelta", "laguna blanca", "formosa", "rio pilcomayo", "colonia benitez")
#parques <- c("el leoncito", "sierra de las quijadas")
# PALETAS Y FUENTES ---------------------------------------------------------
# Paleta colores Presidencia
Expand Down Expand Up @@ -575,6 +575,7 @@ data_tabla_2 <- data_tabla_2 %>%
columns = c(acumulado_2024_total,
var_ia_acumulado_total,
participacion)) %>%
tab_options(column_labels.font.size = 14) %>%
tab_spanner(
label = md("**TOTAL**"),
columns = c(visitantes_2024_total,
Expand All @@ -595,7 +596,7 @@ data_tabla_2 <- data_tabla_2 %>%
sub_zero(columns = 1:10, zero_text = "-") %>%
tab_source_note(glue("///: Dato que no corresponde mostrar debido a la naturaleza de las cosas.")) %>%
tab_source_note("El PN Perito Moreno se cierra a la visita desde fines de abril a principios de octubre.") %>%
tab_source_note("Nota: No se recibió información de visitas de los PN Pre Delta, Laguna Blanca y la RN Pizarro.")
tab_source_note("Nota: No se recibió información de visitas de los PN Pre Delta, Laguna Blanca, Formosa, Colonia Benítez, la RN Pizarro.")
#tab_source_note("Nota: entre el 22 y 30 de mayo los parques nacionales se cerraron a las visitas (según DI-2021-95-APN-DNO#APNAC) en adhesión a las medidas nacionales (Decreto 334/2021).")
```

Expand Down
Loading

0 comments on commit 3099118

Please sign in to comment.