tests/testthat/test-geom_polygon_auc.R

In pROC: Display and Analyze ROC Curves

context("geom_polygon_auc")

test_that("geom_polygon_auc works", {
  test_geom_polygon_auc_screenshot <- function() {
    print(ggroc(r.s100b) + geom_polygon_auc(r.s100b$auc))
  }
  expect_ggroc_doppelganger("geom_polygon_auc.screenshot", test_geom_polygon_auc_screenshot)
})

test_that("geom_polygon_auc works with percent and legacy.axes = TRUE", {
  test_geom_polygon_auc_percent_legacy_screenshot <- function() {
    print(ggroc(r.s100b.percent, legacy.axes = TRUE) + geom_polygon_auc(r.s100b.percent$auc, legacy.axes = TRUE))
  }
  expect_ggroc_doppelganger("geom_polygon_auc.percent.legacy.screenshot", test_geom_polygon_auc_percent_legacy_screenshot)
})


test_that("geom_polygon_auc works with percent and legacy.axes = TRUE", {
  test_geom_polygon_auc_partial_screenshot <- function() {
    auc_sp <- auc(r.s100b, partial.auc = c(0.8, 0.9), partial.auc.focus = "sp")
    auc_se <- auc(r.s100b, partial.auc = c(0.8, 0.9), partial.auc.focus = "se")
    print(ggroc(r.s100b) +
      geom_polygon_auc(auc_se) +
      geom_polygon_auc(auc_sp))
  }
  expect_ggroc_doppelganger("geom_polygon_auc.partial.screenshot", test_geom_polygon_auc_partial_screenshot)
})