Bug fix in VisualizeDesign (horizontal/vertical lines - adapt to ggplot2 4.0.0)

Author: csoneson

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: ExploreModelMatrix
 Type: Package
 Title: Graphical Exploration of Design Matrices
-Version: 1.21.1
-Date: 2025-09-30
+Version: 1.21.2
+Date: 2025-10-07
 Authors@R: c(person("Charlotte", "Soneson", role = c("aut", "cre"), 
     email = "charlottesoneson@gmail.com", 
     comment = c(ORCID = "0000-0003-3833-2169")),

R/VisualizeDesign.R

@@ -344,7 +344,7 @@ VisualizeDesign <- function(sampleData, designFormula = NULL,
         ggplot2::theme_bw() +
         ggplot2::geom_hline(yintercept = 0.5 +
                               seq_len(length(unique(
-                                sampleData[[plot_terms[1]]])) - 1)) +
+                                w[[plot_terms[1]]])) - 1)) +
         ggplot2::theme(
           panel.grid.major = ggplot2::element_blank(),
           panel.grid.minor = ggplot2::element_blank(),
@@ -356,7 +356,7 @@ VisualizeDesign <- function(sampleData, designFormula = NULL,
         gg <- gg +
           ggplot2::geom_vline(xintercept = 0.5 +
                                 seq_len(length(unique(
-                                  sampleData[[plot_terms[2]]])) - 1))
+                                  w[[plot_terms[2]]])) - 1))
       } else {
         if (flipCoordFitted) {
           gg <- gg + theme(axis.text.y = element_blank(),