From 299d8ef36732f60cd949641388b6d86e85375e7b 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..7f8c6c6 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(expdesign) <- expdesign$sample_name
+  colnames(raw)[matched] <- expdesign$sample_name
   raw <- raw[, !is.na(colnames(raw))][rownames(expdesign)]
 
   # Select the rowData