# HG changeset patch
# User tomnl
# Date 1525281866 14400
# Node ID d7f4696a1f86c766c7d9874e051317c8d69eb513
# Parent  3d8bde261c959cf1a7ec0db0a911a299d204561d
planemo upload for repository https://github.com/computational-metabolomics/mspurity-galaxy commit 0aa10df0ec1ed71601f932cfb11d7d4d4f620d80-dirty

diff -r 3d8bde261c95 -r d7f4696a1f86 anticipated_purity_dims.R
--- a/anticipated_purity_dims.R	Mon Apr 23 10:16:41 2018 -0400
+++ b/anticipated_purity_dims.R	Wed May 02 13:24:26 2018 -0400
@@ -32,7 +32,8 @@
 }else{
   indf <- read.table(opt$peaks_file,
                      header = TRUE, sep='\t', stringsAsFactors = FALSE)
-  filename = colnames(indf)[8:ncol(indf)][opt$dimspy_file_num]
+
+  filename = colnames(indf)[8:ncol(indf)][opt$file_num_dimspy]
   # 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]