...

vertesy · Nov 6, 2024 · 6751527 · 6751527
1 parent e05d308
commit 6751527
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/R/Seurat.Utils.R b/R/Seurat.Utils.R
@@ -14,7 +14,6 @@
 # file.remove("~/GitHub/Packages/Seurat.utils/weight3.bar.png")
 
 
-
 # _________________________________________________________________________________________________
 # One-stop-shop functions for entire pipelines _____________________________ ------
 # _________________________________________________________________________________________________

diff --git a/R/Seurat.Utils.Visualization.R b/R/Seurat.Utils.Visualization.R
@@ -3571,7 +3571,7 @@ scGOEnrichment <- function(genes, universe = NULL,
 #'
 #' @param df.enrichment Data frame. Enrichment results from GO analysis. Default: NULL.
 #' @param tag Character. Tag to be added to the title of the plot. Default: "in ...".
-#' @param universe Character. Background gene list (universe). Default: NULL.
+#' @param universe Character. Background gene list (universe). Default: `df.enrichment@universe`.
 #' @param title Character. Title of the plot. Default: "GO Enrichment Analysis" followed by `tag`.
 #' @param subtitle Character. Subtitle of the plot. Default: NULL.
 #' @param caption Character. Caption of the plot. Default: constructed from input parameters.
@@ -3593,7 +3593,7 @@ scGOEnrichment <- function(genes, universe = NULL,
 #' }
 scBarplotEnrichr <- function(df.enrichment,
                              tag = "...",
-                             universe = NULL,
+                             universe = df.enrichment@universe,
                              title = paste("GO Enriched Terms", tag),
                              subtitle = kppws("Input: ", substitute_deparse(df.enrichment)),
                              caption = paste0(