Update R/utilities.R

Correction to use AddMetaData function Co-authored-by: David Collins <[email protected]>
satijalab · Feb 7, 2025 · 9cf5791 · 9cf5791
1 parent 2425106
commit 9cf5791
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/utilities.R b/R/utilities.R
@@ -986,8 +986,7 @@ GroupCorrelation <- function(
   grp.cors <- as.data.frame(x = grp.cors[which(x = !is.na(x = grp.cors))])
   grp.cors$gene_grp <- gene.grp[rownames(x = grp.cors)]
   colnames(x = grp.cors) <- c(paste0(var, "_cor"), "feature.grp")
-  try(object[[assay]]@meta.data <- grp.cors, silent = T)
-  try(object[[assay]]@meta.features <- grp.cors, silent = T)
+  object[[assay]] <- AddMetaData(object[[assay]], grp.cors)
   if (isTRUE(x = do.plot)) {
     print(GroupCorrelationPlot(
       object = object,