changeset 9:91f38a17d82a draft

planemo upload for repository https://github.com/computational-metabolomics/mspurity-galaxy commit 0aa10df0ec1ed71601f932cfb11d7d4d4f620d80-dirty
author tomnl
date Wed, 02 May 2018 14:10:09 -0400
parents 30160c2016d7
children 403ef9c57550
files anticipated_purity_dims.R
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/anticipated_purity_dims.R	Wed May 02 13:17:29 2018 -0400
+++ b/anticipated_purity_dims.R	Wed May 02 14:10:09 2018 -0400
@@ -32,15 +32,16 @@
 }else{
   indf <- read.table(opt$peaks_file,
                      header = TRUE, sep='\t', stringsAsFactors = FALSE)
-
+	
   filename = colnames(indf)[8:ncol(indf)][opt$file_num_dimspy]
+  print(filename)
   # check if the data file is mzML or RAW (can only use mzML currently) so
   # we expect an mzML file of the same name in the same folder
   indf$i <- indf[,colnames(indf)==filename]
   indf[,colnames(indf)==filename] <- as.numeric(indf[,colnames(indf)==filename])
 
   filename = sub("raw", "mzML", filename, ignore.case = TRUE)
-
+  print(filename)
   df <- indf[4:nrow(indf),]
   if ('blank_flag' %in% colnames(df)){
     df <- df[df$blank_flag==1,]