change data to alldata

SydneyBioX · Oct 12, 2023 · d9612bd · d9612bd
1 parent 97966d2
commit d9612bd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/helper_bulk_expression.R b/R/helper_bulk_expression.R
@@ -38,7 +38,7 @@ helper_gene_prop <- function( alldata, genes = NULL, num_top_gene = NULL, ncores
     BPparam <- generateBPParam(ncores)
 
     if (is.null(num_top_gene)) {
-        num_top_gene <- min(nrow(data), 1500)
+        num_top_gene <- min(nrow(alldata$data), 1500)
     }