R/is.R

Defines functions is_output

Documented in is_output

#' Is output format one of x?
#' @param x Expected formats in a character vector.
#' @importFrom knitr opts_knit
#' @export
is_output <- function(x) {
  any(opts_knit$get("rmarkdown.pandoc.to") %in% x)
}
atusy/atusydown documentation built on Sept. 1, 2020, 3:37 a.m.