diff xcms_xcmsSet.r @ 34:efd23113d5f4 draft

planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 49203f8a5271fa5e6bb889e907df71ebf7757309
author lecorguille
date Thu, 08 Mar 2018 05:51:32 -0500
parents c363b9f1caef
children 7f636ad1162b
line wrap: on
line diff
--- a/xcms_xcmsSet.r	Mon Mar 05 04:15:34 2018 -0500
+++ b/xcms_xcmsSet.r	Thu Mar 08 05:51:32 2018 -0500
@@ -115,18 +115,6 @@
 # Create a sampleMetada file
 sampleNamesList <- getSampleMetadata(xdata=xdata, sampleMetadataOutput="sampleMetadata.tsv")
 
-# Get the legacy xcmsSet object
-xset <- getxcmsSetObject(xdata)
-
-cat("\n\n")
-
-
-# -- TIC --
-cat("\t\tGET TIC GRAPH\n")
-#@TODO: one day, use xdata instead of xset to draw the TICs and BPC or a complete other method
-getTICs(xcmsSet=xset, rt="raw", pdfname="TICs.pdf")
-getBPCs(xcmsSet=xset, rt="raw", pdfname="BICs.pdf")
-
 cat("\n\n")
 
 # ----- EXPORT -----
@@ -136,6 +124,8 @@
 cat("\n\n")
 
 cat("\txcmsSet OBJECT INFO\n")
+# Get the legacy xcmsSet object
+xset <- getxcmsSetObject(xdata)
 print(xset)
 cat("\n\n")