tests/testthat/helpers.R

In tufte: Tufte's Styles for R Markdown Documents

# Use to test pandoc availability or version lower than
skip_if_not_tinytex <- function() {
  if (!tinytex::is_tinytex()) skip("TinyTeX is not installed")
}

skip_if_not_pandoc <- function(ver = NULL) {
  if (!rmarkdown::pandoc_available(ver)) {
    msg <- if (is.null(ver)) {
      "Pandoc is not available"
    } else {
      sprintf("Version of Pandoc is lower than %s.", ver)
    }
    skip(msg)
  }
}

# Use to test version greater than
skip_if_pandoc <- function(ver = NULL) {
  if (rmarkdown::pandoc_available(ver)) {
    msg <- if (is.null(ver)) {
      "Pandoc is available"
    } else {
      sprintf("Version of Pandoc is greater than %s.", ver)
    }
    skip(msg)
  }
}

local_rmd_file <- function(..., .env = parent.frame()) {
  path <- withr::local_tempfile(.local_envir = .env, fileext = ".Rmd")
  xfun::write_utf8(c(...), path)
  path
}

local_render <- function(input, ..., .env = parent.frame()) {
  skip_if_not_pandoc()
  output_file <- withr::local_tempfile(.local_envir = .env)
  rmarkdown::render(input, output_file = output_file, quiet = TRUE, ...)
}

local_pandoc_convert <- function(
  text,
  from = "markdown",
  options = NULL,
  ...,
  .env = parent.frame()
) {
  skip_if_not_pandoc()
  rmd <- local_rmd_file(text)
  out <- withr::local_tempfile(.local_envir = .env)
  rmarkdown::pandoc_convert(
    rmd,
    from = from,
    output = out,
    options = c("--wrap", "preserve", options),
    ...
  )
  xfun::read_utf8(out)
}

.render_and_read <- function(input, ...) {
  skip_if_not_pandoc()
  res <- local_render(input, ...)
  xfun::read_utf8(res)
}

# Temporarily set entries in knitr::opts_knit for the duration of the calling
# frame; original values are restored via withr::defer.
local_knit_opts <- function(..., .env = parent.frame()) {
  new <- list(...)
  if (!length(new)) {
    return(invisible())
  }
  keys <- names(new)
  old <- stats::setNames(
    lapply(keys, function(k) knitr::opts_knit$get(k)),
    keys
  )
  knitr::opts_knit$set(new)
  withr::defer(knitr::opts_knit$set(old), envir = .env)
  invisible()
}