use sample_name as the colnames of resulting SummarizedExperiment object

Nesvilab · Nov 28, 2024 · 299d8ef · 299d8ef
1 parent a1260ca
commit 299d8ef
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/io.R b/R/io.R
@@ -486,7 +486,8 @@ make_se_customized <- function(proteins_unique, columns, expdesign, log2transfor
     )
   }
 
-  colnames(raw)[matched] <- expdesign$label
+  rownames(expdesign) <- expdesign$sample_name
+  colnames(raw)[matched] <- expdesign$sample_name
   raw <- raw[, !is.na(colnames(raw))][rownames(expdesign)]
 
   # Select the rowData