Ia/fix lapply plot bug (#2240)

* fix suppresswarnings typo
* fix legend plotting lapply on R<4.3

Author: immanuelazn

R/RNAIntegration.R

@@ -478,7 +478,7 @@ addGeneIntegrationMatrix <- function(
     colnames(mat) <- as.character(colnames(mat))
     #Log-Normalize 
     mat <- log(mat + 1) #use natural log
-    seuratATAC <- supressWarninggs(Seurat::CreateSeuratObject(counts = as.matrix(mat[head(seq_len(nrow(mat)), 5), , drop = FALSE])))
+    seuratATAC <- suppressWarnings(Seurat::CreateSeuratObject(counts = as.matrix(mat[head(seq_len(nrow(mat)), 5), , drop = FALSE])))
     seuratATAC[["GeneScore"]] <- Seurat::CreateAssayObject(counts = mat)
 
     #Clean Memory

R/VisualizeData.R

@@ -882,11 +882,14 @@ plotGroups <- function(
 
   #adapted from https://github.com/jwdink/egg/blob/master/R/set_panel_size.r
   g <- ggplotGrob(p)
-  
   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")]
+  if (length(legend_indices) != 0) {
+    legend <- legend_indices[unlist(lapply(legend_indices, function(idx) class(g$grobs[[idx]])[1] != "zeroGrob"))]
+  } else {
+    legend <- legend_indices
+  }
   # add correct ones to legend
   if(length(legend)!=0){
     gl <- g$grobs[[legend]]