From 9fe2be234f9cbd070eb356b271a09c469de64d6c Mon Sep 17 00:00:00 2001 From: Madeleine Duran Date: Tue, 27 Aug 2024 15:54:39 -0700 Subject: [PATCH] allow for gene_group_df with one grouping in aggregate_gene_expression --- R/cluster_genes.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/cluster_genes.R b/R/cluster_genes.R index e7e67cb..7b812e6 100644 --- 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 }