Update plot_cpdb_heatmap.R

zktuong · Feb 17, 2024 · 2d1a536 · 2d1a536
1 parent 3689d07
commit 2d1a536
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/plot_cpdb_heatmap.R b/R/plot_cpdb_heatmap.R
@@ -49,7 +49,7 @@ plot_cpdb_heatmap <- function(pvals, cell_types = NULL, degs_analysis = FALSE, l
   all_intr <- t(all_intr[, -c(1:col_start - 1)])
   colnames(all_intr) <- intr_pairs
   if (is.null(cell_types)) {
-    cell_types <- sort(unique(unlist(strsplit(colnames(all_intr)[col_start:ncol(all_intr)],
+    cell_types <- sort(unique(unlist(strsplit(colnames(pvals)[col_start:ncol(pvals)],
       paste0("\\", DEFAULT_CPDB_SEP)))))
   }
   cell_types_comb <- apply(expand.grid(cell_types, cell_types), 1, function(z) {