diff --git a/R/unir_paginas.R b/R/unir_paginas.R
index 88c65e6..9260c63 100644
--- a/R/unir_paginas.R
+++ b/R/unir_paginas.R
@@ -24,27 +24,29 @@ unir_paginas <- function(input, save_as, topic, back_colour = "gris") {
if(Sys.info()["nodename"] != "dev-rstudio-vra-ubuntu") {
- if (topic == "calidad") {
- topic_path <- "https://tableros.yvera.tur.ar/recursos/hojas_institucionales/calidad_turistica_ct.pdf"
- } else if(topic == "competitividad hotelera") {
- topic_path <- "https://tableros.yvera.tur.ar/recursos/hojas_institucionales/competitividad_hotelera_ct.pdf"
- } else if(topic == "eoh") {
- topic_path <- "https://tableros.yvera.tur.ar/recursos/hojas_institucionales/encuesta_ocupacion_hotelera_ct.pdf"
- } else if(topic == "sector hotelero") {
- topic_path <- "https://tableros.yvera.tur.ar/recursos/hojas_institucionales/sector_hotelero_ct.pdf"
- } else if(topic == "internacional") {
- topic_path <- "https://tableros.yvera.tur.ar/recursos/hojas_institucionales/turismo_internacional_ct.pdf"
- } else if(topic == "interno") {
- topic_path <- "https://tableros.yvera.tur.ar/recursos/hojas_institucionales/turismo_interno_ct.pdf"
- } else if(topic == "inversiones") {
- topic_path <- "https://tableros.yvera.tur.ar/recursos/hojas_institucionales/inversiones_turisticas_ct.pdf"
- } else if(topic == "naturaleza") {
- topic_path <- "https://tableros.yvera.tur.ar/recursos/hojas_institucionales/turismo_naturaleza_ct.pdf"
- } else if(topic == "naturaleza apn") {
- topic_path <- "https://tableros.yvera.tur.ar/recursos/hojas_institucionales/turismo_naturaleza_apn_ct.pdf"
- } else if(topic == "generico") {
- topic_path <- "https://tableros.yvera.tur.ar/recursos/hojas_institucionales/generico_st.pdf"
- }
+ # if (topic == "calidad") {
+ # topic_path <- "https://tableros.yvera.tur.ar/recursos/hojas_institucionales/calidad_turistica_ct.pdf"
+ # } else if(topic == "competitividad hotelera") {
+ # topic_path <- "https://tableros.yvera.tur.ar/recursos/hojas_institucionales/competitividad_hotelera_ct.pdf"
+ # } else if(topic == "eoh") {
+ # topic_path <- "https://tableros.yvera.tur.ar/recursos/hojas_institucionales/encuesta_ocupacion_hotelera_ct.pdf"
+ # } else if(topic == "sector hotelero") {
+ # topic_path <- "https://tableros.yvera.tur.ar/recursos/hojas_institucionales/sector_hotelero_ct.pdf"
+ # } else if(topic == "internacional") {
+ # topic_path <- "https://tableros.yvera.tur.ar/recursos/hojas_institucionales/turismo_internacional_ct.pdf"
+ # } else if(topic == "interno") {
+ # topic_path <- "https://tableros.yvera.tur.ar/recursos/hojas_institucionales/turismo_interno_ct.pdf"
+ # } else if(topic == "inversiones") {
+ # topic_path <- "https://tableros.yvera.tur.ar/recursos/hojas_institucionales/inversiones_turisticas_ct.pdf"
+ # } else if(topic == "naturaleza") {
+ # topic_path <- "https://tableros.yvera.tur.ar/recursos/hojas_institucionales/turismo_naturaleza_ct.pdf"
+ # } else if(topic == "naturaleza apn") {
+ # topic_path <- "https://tableros.yvera.tur.ar/recursos/hojas_institucionales/turismo_naturaleza_apn_ct.pdf"
+ # } else if(topic == "generico") {
+ # topic_path <- "https://tableros.yvera.tur.ar/recursos/hojas_institucionales/generico_st.pdf"
+ # }
+
+ topic_path <- "https://tableros.yvera.tur.ar/recursos/hojas_institucionales/segunda_hoja.pdf"
temp <- tempfile()
@@ -65,27 +67,29 @@ unir_paginas <- function(input, save_as, topic, back_colour = "gris") {
invisible(file.remove(c("cover.pdf","body.pdf",temp,temp_back)))
} else {
- if (topic == "calidad") {
- topic_path <- "/srv/shiny-server/recursos/hojas_institucionales/calidad_turistica_ct.pdf"
- } else if(topic == "competitividad hotelera") {
- topic_path <- "/srv/shiny-server/recursos/hojas_institucionales/competitividad_hotelera_ct.pdf"
- } else if(topic == "eoh") {
- topic_path <- "/srv/shiny-server/recursos/hojas_institucionales/encuesta_ocupacion_hotelera_ct.pdf"
- } else if(topic == "sector hotelero") {
- topic_path <- "/srv/shiny-server/recursos/hojas_institucionales/sector_hotelero_ct.pdf"
- } else if(topic == "internacional") {
- topic_path <- "/srv/shiny-server/recursos/hojas_institucionales/turismo_internacional_ct.pdf"
- } else if(topic == "interno") {
- topic_path <- "/srv/shiny-server/recursos/hojas_institucionales/turismo_interno_ct.pdf"
- } else if(topic == "inversiones") {
- topic_path <- "/srv/shiny-server/recursos/hojas_institucionales/inversiones_turisticas_ct.pdf"
- } else if(topic == "naturaleza") {
- topic_path <- "/srv/shiny-server/recursos/hojas_institucionales/turismo_naturaleza_ct.pdf"
- } else if(topic == "naturaleza apn") {
- topic_path <- "/srv/shiny-server/recursos/hojas_institucionales/turismo_naturaleza_apn_ct.pdf"
- } else if(topic == "generico") {
- topic_path <- "/srv/shiny-server/recursos/hojas_institucionales/generico_st.pdf"
- }
+ # if (topic == "calidad") {
+ # topic_path <- "/srv/shiny-server/recursos/hojas_institucionales/calidad_turistica_ct.pdf"
+ # } else if(topic == "competitividad hotelera") {
+ # topic_path <- "/srv/shiny-server/recursos/hojas_institucionales/competitividad_hotelera_ct.pdf"
+ # } else if(topic == "eoh") {
+ # topic_path <- "/srv/shiny-server/recursos/hojas_institucionales/encuesta_ocupacion_hotelera_ct.pdf"
+ # } else if(topic == "sector hotelero") {
+ # topic_path <- "/srv/shiny-server/recursos/hojas_institucionales/sector_hotelero_ct.pdf"
+ # } else if(topic == "internacional") {
+ # topic_path <- "/srv/shiny-server/recursos/hojas_institucionales/turismo_internacional_ct.pdf"
+ # } else if(topic == "interno") {
+ # topic_path <- "/srv/shiny-server/recursos/hojas_institucionales/turismo_interno_ct.pdf"
+ # } else if(topic == "inversiones") {
+ # topic_path <- "/srv/shiny-server/recursos/hojas_institucionales/inversiones_turisticas_ct.pdf"
+ # } else if(topic == "naturaleza") {
+ # topic_path <- "/srv/shiny-server/recursos/hojas_institucionales/turismo_naturaleza_ct.pdf"
+ # } else if(topic == "naturaleza apn") {
+ # topic_path <- "/srv/shiny-server/recursos/hojas_institucionales/turismo_naturaleza_apn_ct.pdf"
+ # } else if(topic == "generico") {
+ # topic_path <- "/srv/shiny-server/recursos/hojas_institucionales/generico_st.pdf"
+ # }
+
+ topic_path <- "https://tableros.yvera.tur.ar/recursos/hojas_institucionales/segunda_hoja.pdf"
suppressWarnings(staplr::staple_pdf(input_files = c("cover.pdf",
topic_path,
@@ -95,6 +99,7 @@ unir_paginas <- function(input, save_as, topic, back_colour = "gris") {
"/srv/shiny-server/recursos/hojas_institucionales/contra_tapa.pdf")),
output_filepath = save_as))
+
invisible(file.remove(c("cover.pdf","body.pdf")))
}
diff --git a/inst/resources/img/logo_pagedown.svg b/inst/resources/img/logo_pagedown.svg
index 0a42540..f33294c 100644
--- a/inst/resources/img/logo_pagedown.svg
+++ b/inst/resources/img/logo_pagedown.svg
@@ -1 +1,681 @@
-
\ No newline at end of file
+
+
+
diff --git a/inst/resources/logo/escudo.png b/inst/resources/logo/escudo.png
index 0e1eee9..132a537 100644
Binary files a/inst/resources/logo/escudo.png and b/inst/resources/logo/escudo.png differ
diff --git a/inst/rmarkdown/templates/paged/skeleton/skeleton.Rmd b/inst/rmarkdown/templates/paged/skeleton/skeleton.Rmd
index 8a46c46..4d33a7c 100644
--- a/inst/rmarkdown/templates/paged/skeleton/skeleton.Rmd
+++ b/inst/rmarkdown/templates/paged/skeleton/skeleton.Rmd
@@ -2,8 +2,7 @@
title: "Título del informe"
#subtitle: "Subtítulo del informe"
author: |
- | Dirección Nacional de Mercados y Estadística
- | **SUBSECRETARÍA DE DESARROLLO ESTRATÉGICO**
+ | Sistema de Información Turística de la Argentina
date: "acalafecha"
output:
comunicacion::template_informe