Update rc.get.xmcs.data.R

cbroeckl · Jan 22, 2024 · 42c8947 · 42c8947
1 parent 8aa8867
commit 42c8947
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/rc.get.xmcs.data.R b/R/rc.get.xmcs.data.R
@@ -196,7 +196,7 @@ rc.get.xcms.data <- function(xcmsObj = NULL,
     filepaths <- xcmsObj@filepaths
     filenames <- basename(filepaths)
     phenotype <- xcmsObj@phenoData[, 1]
-    phenotype <- data.frame(sample.names = phenotype, filenames, filepaths)
+    phenotype <- data.frame(phenotype, filenames, filepaths)
     if (mslev == 2) {
       phenotype <- phenotype[1:(nrow(phenotype) / 2), ]
     }