In StefanJuenger/woRkshoptools: R-Package to create, build, and maintain xaringan slides for our workshops

envelope <- icons::fontawesome('envelope')
twitter <- icons::fontawesome('twitter')
github <- icons::fontawesome('github')
home <- icons::fontawesome('home')

presenter_data <-
  readr::read_csv("./content/config/presenters") %>% 
  dplyr::filter(name == rmarkdown::metadata$presenter)

cat("
layout: false
class: center
background-image: url(../assets/img/the_end.png)
background-size: cover

.left-column[
</br>"
)

woRkshoptools::include_picture(paste0(presenter_data$name, ".png"))

paste0("
]
.right-column[
.left[.small[", envelope, " [", presenter_data$mail, "](mailto:", presenter_data$mail, ")]
.small[", twitter, " [`@", presenter_data$twitter, "`](https://twitter.com/", presenter_data$github, ")]
.small[", github,  " [`", presenter_data$github, "`](https://github.com/", presenter_data$github, ")]
.small[", home, " [`", presenter_data$home, "`](", presenter_data$home, ")]]
]
"
) %>% 
  cat()

StefanJuenger/woRkshoptools documentation built on Nov. 8, 2022, 12:13 p.m.