Skip to content

Commit

Permalink
Merge pull request #47 from eliansoutu/master
Browse files Browse the repository at this point in the history 
actualizo logos y hojas
  • Loading branch information
@eliansoutu
eliansoutu authored Feb 9, 2024
2 parents fd480c5 + 52b044e commit a0a480e
Show file tree
Hide file tree
Showing 6 changed files with 55 additions and 752 deletions.
117 changes: 48 additions & 69 deletions R/unir_paginas.R
View file
Original file line number Diff line number Diff line change
Expand Up @@ -3,18 +3,16 @@
#' @param input Ruta con el PDF del informe
#' @param save_as Nombre y ruta del informe a guardar
#' @param topic Tema del informe. Puede ser: "calidad", "competitividad hotelera", "eoh", "sector hotelero", "internacional", "interno", "inversiones", "naturaleza", "naturaleza apn" o "generico"
#' @param back_colour Color de la contratapa. Puede ser "gris" (default) o "celeste"
#' @examples
#' \dontrun{
#' unir_paginas(input = "eoh.pdf",
#' save_as = "informe_eoh_junio_2022.pdf",
#' topic = "eoh",
#' back_colour = "gris"
#' topic = "eoh"
#' )
#' }
#' @export

unir_paginas <- function(input, save_as, topic = "", back_colour = "gris") {
unir_paginas <- function(input, save_as, topic = "generico") {

staplr::select_pages(1, input_filepath = input, output_filepath = "cover.pdf")

Expand All @@ -24,47 +22,38 @@ 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 == "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"

}

if(topic == "generico") {
topic_path <- "https://tableros.yvera.tur.ar/recursos/hojas_institucionales/segunda_hoja.pdf"
} else 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"
}

temp <- tempfile()

utils::download.file(topic_path, temp, method = "curl", quiet = T)

temp_back <- tempfile()

utils::download.file(ifelse(back_colour == "gris",
"https://tableros.yvera.tur.ar/recursos/hojas_institucionales/contratapa.pdf",
"https://tableros.yvera.tur.ar/recursos/hojas_institucionales/contra_tapa.pdf"), temp_back,
utils::download.file("https://tableros.yvera.tur.ar/recursos/hojas_institucionales/contratapa.pdf", temp_back,
method = "curl", quiet = T)

suppressWarnings(staplr::staple_pdf(input_files = c("cover.pdf",
Expand All @@ -75,44 +64,34 @@ 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 == "naturaleza apn") {

if(topic == "generico"){
topic_path <- "/srv/shiny-server/recursos/hojas_institucionales/segunda_hoja.pdf"
} 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 {

topic_path <- "/srv/shiny-server/recursos/hojas_institucionales/segunda_hoja.pdf"

}


suppressWarnings(staplr::staple_pdf(input_files = c("cover.pdf",
topic_path,
"body.pdf",
ifelse(back_colour == "gris",
"/srv/shiny-server/recursos/hojas_institucionales/contratapa.pdf",
"/srv/shiny-server/recursos/hojas_institucionales/contra_tapa.pdf")),
"/srv/shiny-server/recursos/hojas_institucionales/contratapa.pdf"),
output_filepath = save_as))


Expand Down
Loading

0 comments on commit a0a480e

Please sign in to comment.