Merge pull request #2236 from GreenleafLab/ia/fix-ggplot-legends

change plotting to work with ggplot2 >=v3.5

R/VisualizeData.R

@@ -883,7 +883,11 @@ plotGroups <- function(
   #adapted from https://github.com/jwdink/egg/blob/master/R/set_panel_size.r
   g <- ggplotGrob(p)
 
-  legend <- grep("guide-box", g$layout$name)
+  legend_indices <- grep("guide-box", g$layout$name)
+  # ggplot versions > 3.5 can have multiple guide boxes, and are non automatically removed if is a "zeroGrob"
+  # Do filtering wrt only non "zeroGrob" legends
+  legend <- legend_indices[sapply(legend_indices, function(idx) class(g$grobs[[idx]])[1] != "zeroGrob")]
+  # add correct ones to legend
   if(length(legend)!=0){
     gl <- g$grobs[[legend]]
     g <- ggplotGrob(p + theme(legend.position = "none"))