tests/testthat/helper-utils.R

In tarchetypes: Archetypes for Targets

expect_equiv <- function(object, expected, ...) {
  attributes(object) <- NULL
  attributes(expected) <- NULL
  expect_equal(object, expected, ...)
}

skip_quarto <- function() {
  skip_pandoc()
  skip_if_not_installed("quarto")
  if (is.null(quarto::quarto_path())) {
    skip("Quarto not found.")
  }
}

skip_rmarkdown <- function() {
  skip_pandoc()
  skip_if_not_installed("rmarkdown")
}

skip_pandoc <- function() {
  has_pandoc <- rmarkdown::pandoc_available(version = "1.12.3", error = FALSE)
  skip_if_not(has_pandoc, "no pandoc >= 1.12.3")
}