From 194cf86276810e033aad329ea1bd59ec366c8d34 Mon Sep 17 00:00:00 2001 From: Xavier Robin Date: Sun, 11 Aug 2024 16:14:57 +0200 Subject: [PATCH] Fix test (issue #129) --- tests/testthat/test-geom_polygon_auc.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/tests/testthat/test-geom_polygon_auc.R b/tests/testthat/test-geom_polygon_auc.R index 1140918..6a19ca0 100644 --- a/tests/testthat/test-geom_polygon_auc.R +++ b/tests/testthat/test-geom_polygon_auc.R @@ -17,9 +17,9 @@ test_that("geom_polygon_auc works with percent and legacy.axes = TRUE", { test_that("geom_polygon_auc works with percent and legacy.axes = TRUE", { test_geom_polygon_auc_partial_screenshot <- function() { - auc_sp = auc(roc.s100b, partial.auc = c(0.8, 0.9), partial.auc.focus="sp") - auc_se = auc(roc.s100b, partial.auc = c(0.8, 0.9), partial.auc.focus="se") - print(ggroc(roc.s100b) + + 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)) }