R/add_title_slide.R

In cadenceinc/FlextableExtended: Flextable Wrapper

#' Add Title Slide to PowerPoint Deck
#'
#' @param slide powerpoint slide
#' @param title character
#' @param subtitle character
#'
#' @return powerpoint slide
#' @export
#'
add_title_slide <- function(slide, title, subtitle = NULL) {
  officer::ph_with(
    slide, title, officer::ph_location_label(ph_label = "title")
  )
  if (!is.null(subtitle)) {
    officer::ph_with(
      slide, subtitle, officer::ph_location_label(ph_label = "subtitle")
    )
  }
}