Fixed CRAN test error

Biometris · Mar 18, 2024 · 268e8c1 · 268e8c1
1 parent e028eba
commit 268e8c1
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -58,7 +58,7 @@ Description: Analysis of multi environment data of plant breeding experiments
 License: GPL
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
 Roxygen: list(markdown = TRUE)
 Depends: R (>= 3.3)
 Imports: 

diff --git a/tests/testthat/test-plots.R b/tests/testthat/test-plots.R
@@ -431,13 +431,11 @@ test_that("megaEnv plot gives correct output types", {
 })
 
 test_that("option colorGenoBy in megaEnv plot functions correctly", {
-  expect_warning(p0 <- plot(geMegaEnv))
   expect_warning(p <- plot(geMegaEnv, colorGenoBy = "family"),
                  "One should be cautious with the interpretation")
   ## New guide-box panel added.
-  layout0 <- p0[[1]]$layout
-  layout <- p[[1]]$layout
-  expect_equal(setdiff(layout[["name"]], layout0[["name"]]), "guide-box")
+  gbRight <- p$pred$grobs[[22]]
+  expect_equal(gbRight$layout[["name"]], c("guides", "legend.box.background"))
 })
 
 ## varComp