Bugfix in plotGroupedHeatmap, resolve #200

alanocallaghan · Aug 23, 2023 · 0ea50dd · 0ea50dd
1 parent 930d517
commit 0ea50dd
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -12,8 +12,8 @@ Authors@R: c(
         person("Leo", "Lahti", role=c("ctb"), email="leo.lahti@utu.fi",
 	             comment = c(ORCID = "0000-0001-5537-637X"))
 	)
-Version: 1.29.3
-Date: 2023-07-06
+Version: 1.29.4
+Date: 2023-08-23
 License: GPL-3
 Title: Single-Cell Analysis Toolkit for Gene Expression Data in R
 Description: A collection of tools for doing various analyses of

diff --git a/R/plotGroupedHeatmap.R b/R/plotGroupedHeatmap.R
@@ -83,6 +83,7 @@ plotGroupedHeatmap <- function(object, features, group, block = NULL,
         ids <- ids[columns,,drop=FALSE]
     }
     heat.se <- summarizeAssayByGroup(heat.vals, ids, statistics="mean")
+    colnames(heat.se) <- heat.se$group
     if (!is.null(block)) {
         heat.se <- correctGroupSummary(assay(heat.se), group=heat.se$group, block=heat.se$block)
     }