R/use_revealjs.R

In UrbanInstitute/urbntemplates: Contains templates for the Urban Institute

#' use_revealjs
#'
#' Adds a template called revealjs.Rmd for creating slide shows with RevealJS.
#'
#' @param name A character string for the name of the created template.
#' @param directory A character string for the directory where the template
#'   should be saved.
#'
#' @md
#' @export
use_revealjs <- function(name = "revealjs.Rmd", directory = NULL) {

  if (!is.null(directory)) {

    usethis::use_directory(directory)
    save_name <- paste0(directory, "/", name)

  } else {

    save_name <- name

  }

  if (!file.exists("www/images/urban-institute-logo.png")) {

    use_content(content = "header image")

  }

  usethis::use_template(
    template = "revealjs.Rmd",
    save_as = save_name,
    data = list(Package = "", Version = ""),
    ignore = FALSE,
    open = TRUE,
    package = "urbntemplates"
  )
}