# HG changeset patch
# User tomnl
# Date 1525281555 14400
# Node ID b7f7ba5f52b50cbe00ba40bcfa76ea127f22f512
# Parent  33f523106f1e36e081a5300d3fc8e349c5db1454
planemo upload for repository https://github.com/computational-metabolomics/mspurity-galaxy commit 0aa10df0ec1ed71601f932cfb11d7d4d4f620d80-dirty

diff -r 33f523106f1e -r b7f7ba5f52b5 anticipated_purity_dims.R
--- a/anticipated_purity_dims.R	Mon Apr 23 10:11:40 2018 -0400
+++ b/anticipated_purity_dims.R	Wed May 02 13:19:15 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]