added utility function to get the cell names per grouping

Former-commit-id: f9083be Former-commit-id: 9e59f36
broadinstitute · Nov 6, 2018 · d17c467 · d17c467
1 parent 11bc73b
commit d17c467
Showing 1 changed file with 20 additions and 0 deletions.
diff --git a/R/inferCNV.R b/R/inferCNV.R
@@ -377,3 +377,23 @@ validate_infercnv_obj <- function(infercnv_obj) {
 
 }
 
+
+get_cell_name_by_grouping <- function(infercnv_obj) {
+
+ cell_name_groupings = list()
+
+ groupings = c(infercnv_obj@reference_grouped_cell_indices, infercnv_obj@observation_grouped_cell_indices)
+
+ for (group_name in names(groupings)) {
+
+ cell_names = colnames(infercnv_obj@expr.data[, groupings[[ group_name ]] ] )
+
+ cell_name_groupings[[ group_name ]] = cell_names
+
+ }
+
+ return(cell_name_groupings)
+}
+
+
+