R/utils.R

In hadley/bookdown: Built books with markdown

Defines functions doc_type is_latex `%||%`

doc_type <- function() knitr::opts_knit$get('rmarkdown.pandoc.to')

is_latex <- function() {
  identical(doc_type(), "latex")
}

`%||%` <- function(a, b) if (is.null(a)) b else a