Merge pull request #46 from eliansoutu/master

agrego hoja institucional
dnme-minturdep · Jan 17, 2024 · 28512df · 28512df
2 parents aae388c + 6e02aca
commit 28512df
Showing 1 changed file with 17 additions and 1 deletion.
diff --git 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",