# HG changeset patch
# User tomnl
# Date 1525281239 14400
# Node ID ef046d5e534dfdfb9a41574d030833828625f2d5
# Parent  7a95d9078691d38b28eef44c25e621e41a51a0fc
planemo upload for repository https://github.com/computational-metabolomics/mspurity-galaxy commit 0aa10df0ec1ed71601f932cfb11d7d4d4f620d80-dirty

diff -r 7a95d9078691 -r ef046d5e534d anticipated_purity_dims.R
--- a/anticipated_purity_dims.R	Mon Apr 23 10:07:52 2018 -0400
+++ b/anticipated_purity_dims.R	Wed May 02 13:13:59 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]