# HG changeset patch
# User tomnl
# Date 1525281449 14400
# Node ID 30160c2016d7581c1bafbfd4369be9179e6b66ed
# Parent  5a863e3d118d7c3a2cf46ec778dd3dd9e1d1d38b
planemo upload for repository https://github.com/computational-metabolomics/mspurity-galaxy commit 0aa10df0ec1ed71601f932cfb11d7d4d4f620d80-dirty

diff -r 5a863e3d118d -r 30160c2016d7 anticipated_purity_dims.R
--- a/anticipated_purity_dims.R	Mon Apr 23 10:09:59 2018 -0400
+++ b/anticipated_purity_dims.R	Wed May 02 13:17:29 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]