tests/testthat/setup.R

In precrec: Calculate Accurate Precision-Recall and ROC (Receiver Operator Characteristics) Curves

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