bulma/R/bulma_document.R

#' Bulma Document Renderer
#'
#' @inheritDotParams rmarkdown::html_document_base
#' @export
bulma_document <- function(..., css = NULL, pandoc_args = NULL) {
  css_files <- c(
    "--css", system.file("bulma", "bulma.0.7.2.min.css", package="bulma"))

  if (!is.null(css)) {
    for (file in css) {
      css_files <- c(css_files, "--css", file)
    }
  }
  rmarkdown::html_document_base(
    pandoc_args = c(
      css_files,
      pandoc_args,
      "--template",
      system.file("bulma", "bulma.html", package="bulma")
    ),
    ...
  )
}