From 898d69754474de13371245bfc91a0c6ea1949757 Mon Sep 17 00:00:00 2001
From: "yi.hsiao" <yihsiao@umich.edu>
Date: Thu, 28 Nov 2024 14:18:43 -0800
Subject: [PATCH] use sample_name as the colnames of resulting
 SummarizedExperiment object

---
 R/io.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/io.R b/R/io.R
index 0340770..fb64f62 100644
--- 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(exp_design) <- exp_design$sample_name
+  colnames(raw)[matched] <- exp_design$sample_name
   raw <- raw[, !is.na(colnames(raw))][rownames(expdesign)]
 
   # Select the rowData