In damarals/gospel.slides: Slides Gospel

options(htmltools.dir.version = FALSE)
knitr::opts_chunk$set(
  fig.width=9, fig.height=3.5, fig.retina=3,
  out.width = "100%",
  cache = FALSE,
  echo = TRUE,
  message = FALSE, 
  warning = FALSE,
  hiline = TRUE
)

xaringanExtra::use_animate_all("fade")

library(xaringanthemer)
style_duo_accent(
  title_slide_text_color = "#FFFFFF",
  inverse_header_color = "#FFFFFF"
)

lyric <- params$set_lyric |> 
  stringr::str_replace_all("\n{2,}", "#") |> 
  stringr::str_replace_all("\n", "<br>") |> 
  stringr::str_replace_all(",(?=\\w)", ", ") |> 
  {\(s) stringr::str_c("#", s)}() |> 
  stringr::str_split("(?=#)", simplify = TRUE) |> 
  stringi::stri_remove_empty() |> 
  stringr::str_remove_all('(?<=#)(Coro:|\\d )|[\"]') |> 
  stringr::str_remove_all('(?<=#)<br>')

for(el in lyric) {
  cat("class: inverse center middle", sep = "\n")
  cat(el, sep = "\n")
  if(el != tail(lyric, 1)) cat("---", sep = "\n")
}

damarals/gospel.slides documentation built on March 19, 2022, 10:50 a.m.