added default pData

PNNL-Comp-Mass-Spec · Feb 15, 2025 · 8cac2b3 · 8cac2b3
1 parent e33f593
commit 8cac2b3
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/read_FragPipe_TMT.R b/R/read_FragPipe_TMT.R
@@ -110,10 +110,13 @@ read_FragPipe_TMT <- function(path = NULL, org_to_retain = NULL, use_gene_as_pro
       select(-c(colnames(.)[[1]]:ReferenceIntensity)) %>%
       as.matrix()
 
+   p_data <- data.frame(sample_name = colnames(x_data),
+                        row.names = colnames(x_data))
+
    f_data <- df %>%
       select(c(colnames(.)[[1]]:ReferenceIntensity))
 
-   m <- MSnSet(exprs = x_data, fData = f_data)
+   m <- MSnSet(exprs = x_data, fData = f_data, pData = p_data)
 
    return(m)
 }