add colnames when concat

SydneyBioX · Aug 5, 2024 · d479eba · d479eba
1 parent 4b24b2d
commit d479eba
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: SpatialFeatures
 Title: Entropy-based subcellular and supercellular features for molecule-resolved spatial omics datasets
-Version: 0.0.2
+Version: 0.0.3
 Authors@R: c(
     person("Shila", "Ghazanfar", email = "[email protected]", role = c("aut", "cre", "ctb")),
     person("Guan", "Gui", role = "ctb")

diff --git a/R/EntropySummarizedExperiment.R b/R/EntropySummarizedExperiment.R
@@ -93,8 +93,11 @@ EntropySummarizedExperiment <- function(df_list, me, includeCounts = FALSE, conc
   } else {
 
     rnames = gsub(".*_", "", rownames(assay_data[[1]]))
+    cnames = gsub(".*_", "", colnames(assay_data[[1]]))
+
     assay_data <- lapply(assay_data, function(x){
       rownames(x) <- rnames
+      colnames(x) <- cnames
       return(x)
     })