diff --git a/DESCRIPTION b/DESCRIPTION index f67d8fe..6c8ee1a 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: important Title: Supervised Feature Selection -Version: 0.2.0.9000 +Version: 0.2.1 Authors@R: c( person("Max", "Kuhn", , "max@posit.co", role = c("aut", "cre"), comment = c(ORCID = "0000-0003-2402-136X")), @@ -54,4 +54,4 @@ Config/usethis/last-upkeep: 2025-06-09 Encoding: UTF-8 Language: en-US Roxygen: list(markdown = TRUE) -RoxygenNote: 7.3.2 +RoxygenNote: 7.3.3 diff --git a/NEWS.md b/NEWS.md index 4714b18..13a4e2b 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,4 +1,6 @@ -# important (development version) +# important 0.2.1 + +Required changes for new ggplot2 release. # important 0.2.0 @@ -13,5 +15,3 @@ See their individual help pages for more information. # important 0.0.1 * Initial CRAN submission. - - diff --git a/inst/WORDLIST b/inst/WORDLIST index 8fc125b..ed4ad3d 100644 --- a/inst/WORDLIST +++ b/inst/WORDLIST @@ -4,14 +4,15 @@ CMD Codecov ORCID PBC +ROR Suich desirabilities doi filtro funder +ggplot importances mirai pre tibble tidymodels -wc diff --git a/man/important-package.Rd b/man/important-package.Rd index 78d5cf2..f08093b 100644 --- a/man/important-package.Rd +++ b/man/important-package.Rd @@ -22,7 +22,7 @@ Useful links: Other contributors: \itemize{ - \item Posit Software, PBC (03wc8by49) [copyright holder, funder] + \item Posit Software, PBC (\href{https://ror.org/03wc8by49}{ROR}) [copyright holder, funder] } } diff --git a/tests/testthat/test-plots.R b/tests/testthat/test-plots.R index 62ddfca..c4bc1b0 100644 --- a/tests/testthat/test-plots.R +++ b/tests/testthat/test-plots.R @@ -29,12 +29,9 @@ test_that("autoplot - classification", { p1 <- autoplot(res_orig) expect_s3_class(p1, "ggplot") expect_equal( - p1$labels, - list( - y = NULL, - x = "Permutation Importance Score", - xintercept = "xintercept" - ) + ggplot2::get_labs(p1), + list(x.sec = NULL, x = "Permutation Importance Score", y = NULL, + y.sec = NULL, xintercept = "xintercept", alt = "") ) expect_equal(names(p1$mapping), "y") expect_equal( @@ -60,14 +57,10 @@ test_that("autoplot - classification", { 3L ) expect_equal( - p2$labels, - list( - y = NULL, - x = "Permutation Importance Score", - xintercept = "xintercept", - xmin = "mean - std_errs * std_err", - xmax = "mean + std_errs * std_err" - ) + ggplot2::get_labs(p2), + list(x.sec = NULL, x = "Permutation Importance Score", y = NULL, + y.sec = NULL, xintercept = "xintercept", xmin = "mean - std_errs * std_err", + xmax = "mean + std_errs * std_err", alt = "") ) expect_equal(length(p2$layers), 3) @@ -112,12 +105,9 @@ test_that("autoplot - classification", { p3 <- autoplot(res_derv, metric = "brier_class") expect_s3_class(p3, "ggplot") expect_equal( - p3$labels, - list( - y = NULL, - x = "Permutation Importance Score", - xintercept = "xintercept" - ) + ggplot2::get_labs(p3), + list(x.sec = NULL, x = "Permutation Importance Score", y = NULL, + y.sec = NULL, xintercept = "xintercept", alt = "") ) expect_equal(length(p3$layers), 2) expect_equal(names(p3$mapping), "y")