# HG changeset patch
# User tomnl
# Date 1525285812 14400
# Node ID bc108e873b975c8cb0fda8eacfd1660ccba4ce14
# Parent  5969d72028f3e33213c1fbf802a27caad1ce796f
planemo upload for repository https://github.com/computational-metabolomics/mspurity-galaxy commit 0aa10df0ec1ed71601f932cfb11d7d4d4f620d80-dirty

diff -r 5969d72028f3 -r bc108e873b97 anticipated_purity_dims.R
--- a/anticipated_purity_dims.R	Wed May 02 14:13:46 2018 -0400
+++ b/anticipated_purity_dims.R	Wed May 02 14:30:12 2018 -0400
@@ -53,7 +53,7 @@
     df[df$mz=='nan',]$mz <- NA
   }
   df$mz <- as.numeric(df$mz)
-
+  mzml_file <- file.path(opt$mzML_file, filename)	
 
 
 
@@ -77,19 +77,6 @@
 }
 
 
-if (dir.exists(opt$mzML_file)){
-  # if directory then we need to add a file name
-  print(filename)
-  if (is.na(filename)){
-    print('ERROR: If a directory is provided then a filename needs to be entered
-          directory or automatically obtained by using a dimspy output')
-    quit()
-  }else{
-    mzml_file <- file.path(opt$mzML_file, filename)
-  }
-}else{
-  mzml_file <- opt$mzML_file
-}
 
 if (is.null(opt$sim)){
     sim=FALSE
@@ -118,7 +105,7 @@
 
 print('FIRST ROWS OF PEAK FILE')
 print(head(df))
-
+print(mzml_file)
 predicted <- msPurity::dimsPredictPuritySingle(df$mz,
                                      filepth=mzml_file,
                                      minOffset=minOffset,