Changing subset technique to work for Seurat V5 for GroupCorrelationP…

…lot() as discussed in issue #9483
satijalab · Feb 7, 2025 · 2425106 · 2425106
1 parent 0497b0e
commit 2425106
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/visualization.R b/R/visualization.R
@@ -4700,7 +4700,8 @@ GroupCorrelationPlot <- function(
   cor = "nCount_RNA_cor"
 ) {
   assay <- assay %||% DefaultAssay(object = object)
-  data <- object[[assay]][c(feature.group, cor)]
+  try(data <- object[[assay]]@meta.data[, c(feature.group, cor)], silent=T)
+  try(data <- object[[assay]]@meta.features[, c(feature.group, cor)], silent=T)
   data <- data[complete.cases(data), ]
   colnames(x = data) <- c('grp', 'cor')
   data$grp <- as.character(data$grp)