From fea5f2c6d1d6c8a3c00879095d7ac6e90fed13c6 Mon Sep 17 00:00:00 2001 From: Teun van den Brand Date: Thu, 30 Jan 2025 16:43:30 +0100 Subject: [PATCH 1/2] adapt test --- tests/testthat/test_plot_density.R | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/tests/testthat/test_plot_density.R b/tests/testthat/test_plot_density.R index c2084f6..ae770ff 100644 --- a/tests/testthat/test_plot_density.R +++ b/tests/testthat/test_plot_density.R @@ -41,5 +41,9 @@ test_that("Test plot_density", { plt <- plot_density(fobject) expect_s3_class(plt, "ggplot") - expect_equal(plt$labels$x, "predicted values") + if ("get_labs" %in% getNamespaceExports("ggplot2")) { + expect_equal(ggplot2::get_labs(plt)$x, "predicted values") + } else { + expect_equal(plt$labels$x, "predicted values") + } }) From 3a3eac5cee9479704279d018c26c6f2c3472471a Mon Sep 17 00:00:00 2001 From: Teun van den Brand Date: Thu, 30 Jan 2025 16:43:30 +0100 Subject: [PATCH 2/2] adapt test --- tests/testthat/test_plot_density.R | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/tests/testthat/test_plot_density.R b/tests/testthat/test_plot_density.R index c2084f6..b6cabde 100644 --- a/tests/testthat/test_plot_density.R +++ b/tests/testthat/test_plot_density.R @@ -11,7 +11,11 @@ test_that("Test plot_density", { plt <- plot_density(fobject) expect_s3_class(plt, "ggplot") - expect_equal(plt$labels$x, "probability") + if ("get_labs" %in% getNamespaceExports("ggplot2")) { + expect_equal(ggplot2::get_labs(plt)$x, "probability") + } else { + expect_equal(plt$labels$x, "probability") + } # no bias set.seed(123) data <- data.frame( @@ -41,5 +45,9 @@ test_that("Test plot_density", { plt <- plot_density(fobject) expect_s3_class(plt, "ggplot") - expect_equal(plt$labels$x, "predicted values") + if ("get_labs" %in% getNamespaceExports("ggplot2")) { + expect_equal(ggplot2::get_labs(plt)$x, "predicted values") + } else { + expect_equal(plt$labels$x, "predicted values") + } })