From 7d94a354e54a620b4362ddba2152be7df363a3c3 Mon Sep 17 00:00:00 2001 From: topepo Date: Wed, 23 Oct 2024 13:22:43 -0400 Subject: [PATCH] update tests based on dev ggplot2 --- tests/testthat/test-autoplot.R | 4 ---- 1 file changed, 4 deletions(-) diff --git a/tests/testthat/test-autoplot.R b/tests/testthat/test-autoplot.R index 37c9d009..34651d32 100644 --- a/tests/testthat/test-autoplot.R +++ b/tests/testthat/test-autoplot.R @@ -104,9 +104,6 @@ test_that("performance plot for iterative search", { expect_equal(rlang::get_expr(p$mapping$x), expr(.iter)) expect_equal(rlang::get_expr(p$mapping$y), expr(mean)) expect_equal(p$labels$x, "Iteration") - expect_equal(p$labels$y, "mean") - expect_equal(p$labels$ymin, "mean - const * std_err") - expect_equal(p$labels$ymax, "mean + const * std_err") p <- autoplot(mt_spln_knn_bo_sep, type = "performance", metric = "rmse") expect_true(isTRUE(all.equal(unique(p$data$.metric), "rmse"))) @@ -183,7 +180,6 @@ test_that("regular grid plot", { expect_equal(p$labels$y, "") expect_equal(p$labels$colour, as.name("%^*#")) expect_equal(p$labels$x, "Cost") - expect_equal(p$labels$group, "%^*#") expect_true(grepl("^trans", class(p$scales$scales[[1]]$trans))) expect_equal(p$scales$scales[[1]]$trans$name, "log-2")