# HG changeset patch
# User tomnl
# Date 1560869094 14400
# Node ID 3de08f3c4fb6f17de65aec3cb8e5410fce486160
# Parent  13985cdcf0baf78f4164c9158a315470c4869754
planemo upload for repository https://github.com/computational-metabolomics/mspurity-galaxy commit 75d13d0237560528a1c6596a3ea5e327bed3e3a0

diff -r 13985cdcf0ba -r 3de08f3c4fb6 combineAnnotations.R
--- a/combineAnnotations.R	Tue Jun 18 09:56:18 2019 -0400
+++ b/combineAnnotations.R	Tue Jun 18 10:44:54 2019 -0400
@@ -47,32 +47,6 @@
 
 write.table(summary_output, file.path(opt$outdir, 'combined_annotations.tsv'), sep = '\t', row.names = FALSE)
 
-if (!is.null(opt$eic)){
-
-  if (is.null(xset)){
-    xset <- xa@xcmsSet
-  }
-  # previous check should have matched filelists together
-  xset@filepaths <- unname(pa@fileList)
-
-  convert2Raw <- function(x, xset){
-    sid <- unique(x$sample)
-    # for each file get list of peaks
-    x$rt_raw <- xset@rt$raw[[sid]][match(x$rt, xset@rt$corrected[[sid]])]
-    x$rtmin_raw <- xset@rt$raw[[sid]][match(x$rtmin, xset@rt$corrected[[sid]])]
-    x$rtmax_raw <- xset@rt$raw[[sid]][match(x$rtmax, xset@rt$corrected[[sid]])]
-    return(x)
-
-  }
-
-  xset@peaks <- as.matrix(plyr::ddply(data.frame(xset@peaks), ~ sample, convert2Raw, xset=xset))
-
-  # Saves the EICS into the previously created database
-  px <- msPurity::purityX(xset, saveEIC = TRUE,
-                          cores=1, sqlitePth=db_pth,
-                          rtrawColumns = TRUE)
-
-}
 
 closeAllConnections()
 
diff -r 13985cdcf0ba -r 3de08f3c4fb6 createDatabase.R
--- a/createDatabase.R	Tue Jun 18 09:56:18 2019 -0400
+++ b/createDatabase.R	Tue Jun 18 10:44:54 2019 -0400
@@ -159,7 +159,7 @@
 
   # Saves the EICS into the previously created database
   px <- msPurity::purityX(xset, saveEIC = TRUE,
-                           cores=1, sqlitePth=db_pth,
+                           cores=2, sqlitePth=dbPth,
                            rtrawColumns = TRUE)
 
 }