diff --git a/R/unir_paginas.R b/R/unir_paginas.R index 4fa299c..ce73ea6 100644 --- a/R/unir_paginas.R +++ b/R/unir_paginas.R @@ -46,7 +46,15 @@ unir_paginas <- function(input, save_as, topic, back_colour = "gris") { # 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" + if (topic == "naturaleza apn") { + + topic_path <- "https://tableros.yvera.tur.ar/recursos/hojas_institucionales/turismo_naturaleza_apn_ct.pdf" + + } else { + + topic_path <- "https://tableros.yvera.tur.ar/recursos/hojas_institucionales/segunda_hoja.pdf" + + } temp <- tempfile() @@ -89,8 +97,16 @@ unir_paginas <- function(input, save_as, topic, back_colour = "gris") { # topic_path <- "/srv/shiny-server/recursos/hojas_institucionales/generico_st.pdf" # } + if (topic == "naturaleza apn") { + + topic_path <- "/srv/shiny-server/recursos/hojas_institucionales/turismo_naturaleza_apn_ct.pdf" + + } else { + topic_path <- "/srv/shiny-server/recursos/hojas_institucionales/segunda_hoja.pdf" + } + suppressWarnings(staplr::staple_pdf(input_files = c("cover.pdf", topic_path, "body.pdf",