tests/testthat/test_g_autoplot1_pl.R

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

library(precrec)

context("AP 1: Autoplot for pipeline functions")
# Test autoplot(object, ...)

ap1_check_libs <- function() {
  if (requireNamespace("ggplot2", quietly = TRUE)) {
    TRUE
  } else {
    FALSE
  }
}

test_that("autoplot fmdat", {
  if (!ap1_check_libs()) {
    skip("Libraries cannot be loaded")
  }
  pdf(NULL)
  on.exit(dev.off())

  data(B500)
  fmdat <- reformat_data(B500$good_er_scores, B500$labels)

  pp <- ggplot2::autoplot(fmdat)
  expect_true(all(class(pp) == c("gg", "ggplot")))
  expect_error(pp, NA)
})

test_that("autoplot cmat", {
  if (!ap1_check_libs()) {
    skip("Libraries cannot be loaded")
  }
  pdf(NULL)
  on.exit(dev.off())

  data(B500)
  cmat <- create_confmats(scores = B500$good_er_scores,
                          labels = B500$labels)

  pp <- ggplot2::autoplot(cmat)
  expect_true(all(class(pp) == c("gg", "ggplot")))
  expect_error(pp, NA)
})


test_that("autoplot pevals", {
  if (!ap1_check_libs()) {
    skip("Libraries cannot be loaded")
  }
  pdf(NULL)
  on.exit(dev.off())

  data(B500)
  pevals <- calc_measures(scores = B500$good_er_scores,
                          labels = B500$labels)

  pp <- ggplot2::autoplot(pevals)
  expect_true(all(class(pp) == c("gg", "ggplot")))
  expect_error(pp, NA)
})