Skip to content

Commit

Permalink
Implementing @dcollins15 suggestion
Browse files Browse the repository at this point in the history
  • Loading branch information
joesphbeller authored and dcollins15 committed Feb 7, 2025
1 parent 9cf5791 commit 7eccea9
Showing 1 changed file with 1 addition and 2 deletions.
3 changes: 1 addition & 2 deletions R/visualization.R
Original file line number Diff line number Diff line change
Expand Up @@ -4700,8 +4700,7 @@ GroupCorrelationPlot <- function(
cor = "nCount_RNA_cor"
) {
assay <- assay %||% DefaultAssay(object = object)
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 <- object[[assay]][[c(feature.group, cor)]]
data <- data[complete.cases(data), ]
colnames(x = data) <- c('grp', 'cor')
data$grp <- as.character(data$grp)
Expand Down

0 comments on commit 7eccea9

Please sign in to comment.