allow for gene_group_df with one grouping in aggregate_gene_expression

cole-trapnell-lab · Aug 27, 2024 · 9fe2be2 · 9fe2be2
1 parent a2017a2
commit 9fe2be2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/cluster_genes.R b/R/cluster_genes.R
@@ -504,7 +504,7 @@ aggregate_gene_expression <- function(cds,
     agg_mat_colnames = colnames(agg_mat)
     agg_mat = do.call(rbind, agg_gene_groups)
     row.names(agg_mat) = gene_groups
-    agg_mat = agg_mat[is.na(agg_gene_groups) == FALSE,]
+    agg_mat = agg_mat[is.na(agg_gene_groups) == FALSE, , drop=FALSE]
     colnames(agg_mat) = agg_mat_colnames
   }