---
title: ""
params:
expositor: "Jaimito"
output:
xaringan::moon_reader:
seal: false
nature:
ratio: 4:3
---
background-image: url("certificado-GEM.png")
background-size: cover
.center[
.middle[
.expositor[
`r params$expositor`
]
]
]
```{r, eval=FALSE, echo=FALSE}
expositores <- c(
"PhD. Leyter Potenciano",
"PhD. Enrique Rojas",
"PhD. Alba Málaga"# ,
# "PhD. Roxana López",
# "PhD. Jesús Ramos",
# "Jimmy Espinoza",
# "PhD. Juan Peypouquet",
# "Rommel Bazalar",
# "Jafer Vito Gutiérrez"
)
# Crear certificado en HTML
for(i in 1:length(expositores)){
rmarkdown::render(
input="4-certificado-parametrizado.Rmd",
output_file = paste("certificado",i,".html",sep=""),
params=list(expositor=expositores[i])
)
}
# Convertir certficado en HTML a PDF
for(i in 1:length(expositores)){
pagedown::chrome_print(paste("certificado",i,".html",sep=""))
}
```