bf scGOEnrichment

vertesy · Jun 19, 2024 · 79404bc · 79404bc
1 parent 1c01d56
commit 79404bc
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/Seurat.Utils.Visualization.R b/R/Seurat.Utils.Visualization.R
@@ -3171,13 +3171,14 @@ scGOEnrichment <- function(genes, universe = NULL,
     is.character(ont)
   )
 
+  if ( is.null(genes) | length(genes) == 0 ) return(NULL)
+
   # check.gene.symbols
   if (check.gene.symbols) {
     x <- checkGeneSymbols(genes, species = "human")
     genes <- x[x[ , "Approved"] , 1]
   }
 
-
   message("Performing enrichGO() analysis...")
   message(length(genes), " approved genes of interest, in ", length(universe), " background genes.")