diff profia_wrapper.R @ 1:4753e64cf694 draft

planemo upload for repository https://github.com/workflow4metabolomics/profia.git commit 0a90b8ee1577263ace397124d8b0e34d1e630f51
author ethevenot
date Wed, 03 May 2017 10:49:08 -0400
parents 39ccace77270
children 3f8ae071bdda
line wrap: on
line diff
--- a/profia_wrapper.R	Sun Mar 26 17:37:12 2017 -0400
+++ b/profia_wrapper.R	Wed May 03 10:49:08 2017 -0400
@@ -97,7 +97,7 @@
 
 fiaset <- proFIAset(directory,
                     ppm = as.numeric(argVc["ppmN"]),
-                    parallel = FALSE)
+                    parallel = TRUE)
 
 stpI <- stpI + 1
 
@@ -182,8 +182,8 @@
             row.names = FALSE,
             sep = "\t")
 
-samDF <- cbind.data.frame(sampleMetadata = rownames(samDF),
-                          samDF)
+samDF <- cbind.data.frame(sampleMetadata = samDF[, "sampleID"],
+                          class = samDF[, "class"])
 write.table(samDF,
             file = argVc["sampleMetadata_out"],
             quote = FALSE,