diff --git a/R/utilities.R b/R/utilities.R index ca2e7c710..18653d19e 100644 --- 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,