# HG changeset patch
# User tomnl
# Date 1525281660 14400
# Node ID e28fc4fd51e972b24c97425e3e2e402546ca363e
# Parent  4d2e585661788562fb122babf066f91c6b0cfb7e
planemo upload for repository https://github.com/computational-metabolomics/mspurity-galaxy commit 0aa10df0ec1ed71601f932cfb11d7d4d4f620d80-dirty

diff -r 4d2e58566178 -r e28fc4fd51e9 anticipated_purity_dims.R
--- a/anticipated_purity_dims.R	Mon Apr 23 10:13:20 2018 -0400
+++ b/anticipated_purity_dims.R	Wed May 02 13:21:00 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]