tests/testthat/setup.R

In prcbench: Testing Workbench for Precision-Recall Curves

use_vdiff <- FALSE
check_ggplot_fig <- function(ptitle, p) {
  if (testthat:::on_ci() || !use_vdiff) {
    testthat::expect_true(is(p, "ggplot"))
  } else {
    suppressWarnings(vdiffr::expect_doppelganger(ptitle, p))
  }
}