changeset 28:aa0cdd943aa7 draft default tip

planemo upload for repository https://github.com/computational-metabolomics/mspurity-galaxy commit 1800a3818988f21ef129e500818c9a087fce5875
author tomnl
date Wed, 18 Jul 2018 05:50:12 -0400
parents 2b1628678b72
children
files create_msp.R
diffstat 1 files changed, 23 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/create_msp.R	Tue Jul 17 12:13:04 2018 -0400
+++ b/create_msp.R	Wed Jul 18 05:50:12 2018 -0400
@@ -21,11 +21,11 @@
 
 
 
+#grped_df$fileid <- sapply(grped_df$filename, function(x) which(basename(pa@fileList)==x))
+#puritydf$fileid <- sapply(puritydf$filename, function(x) which(basename(pa@fileList)==x))
 
 
-grped_df$fileid <- sapply(grped_df$filename, function(x) which(basename(pa@fileList)==x))
 
-puritydf$fileid <- sapply(puritydf$filename, function(x) which(basename(pa@fileList)==x))
 
 selfrag <- as.numeric(unique(grped_df$grpid)) 
 
@@ -66,9 +66,15 @@
 
                 specj <- spec[[jj]]
 
-                grpdj <- grpd[jj,]
+
 
-                name = paste(i, grpdj$sample, grpdj$pid, sep='-')
+                grpdj <- grpd[jj,]
+                if ('sample' %in% colnames(grpd)){
+                    fileid = grpdj$sample
+                }else{
+                    fileid = grpdj$fileid
+                }
+                name = paste(i, fileid, grpdj$pid, sep='-')
 
                 write.msp(name,grpdj$precurMtchMZ,"",specj,of)
             }
@@ -82,7 +88,13 @@
                 idx <- which(prec_int==max(prec_int))
 
                 grpd <- grpd[idx,]
-                name = paste(i, grpd$sample, grpd$pid, sep='-')
+                if ('sample' %in% colnames(grpd)){
+                    fileid = grpd$sample
+                }else{
+                    fileid = grpd$fileid
+                }
+
+                name = paste(i, fileid, grpd$pid, sep='-')
                 write.msp(name,grpd$precurMtchMZ,"",specj[[idx]], of)
             }
 
@@ -175,7 +187,12 @@
         spec <- spec[[1]]
 
         grpd <- grped_df[j,]
-        name = paste(i, grpd$sample, grpd$pid, sep='-')
+        if ('sample' %in% colnames(grpd)){
+            fileid = grpd$sample
+        }else{
+            fileid = grpd$fileid
+        }
+        name = paste(i, fileid, grpd$pid, sep='-')
         write.msp(name,grpd$precurMtchMZ,"",spec,of)
     }
 }