Update XcmsExperiment-functions.R

sneumann · Nov 20, 2024 · 7b82ba4 · 7b82ba4
1 parent cd7e00c
commit 7b82ba4
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/XcmsExperiment-functions.R b/R/XcmsExperiment-functions.R
@@ -831,6 +831,8 @@
             ids <- rep(rownames(pk), lengths(idx))
             res <- sp[unlist(idx)]
             res$peak_id <- ids
+            info <- pk[res$peak_id, peaksInfo]
+            colnames(info) <- paste("peak_", peaksInfo, sep = "")
             res2@backend@spectraData <- cbind(res2@backend@spectraData, info)
             res
         },