# HG changeset patch
# User caleb-easterly
# Date 1519317217 18000
# Node ID 784c107c5861e04a8e19218af00d2dfbd4d8fff6
# Parent  36b7a58910009941c253f417a8d252e8234d3169
planemo upload for repository https://github.com/caleb-easterly/galaxytools/peca

diff -r 36b7a5891000 -r 784c107c5861 peca.R
--- a/peca.R	Thu Feb 22 11:28:22 2018 -0500
+++ b/peca.R	Thu Feb 22 11:33:37 2018 -0500
@@ -17,8 +17,8 @@
                            sep = '\t')
 
     # read 2nd and 3rd argument, which are path to files with group 1 and 2 column indices 
-    group1_ind_file <- read.csv(args[2], header = FALSE)[1, ]
-    group2_ind_file <- read.csv(args[3], header = FALSE)[1, ]
+    group1_ind_file <- as.vector(as.matrix(read.csv(args[2], header = FALSE)[1, ]))
+    group2_ind_file <- as.vector(as.matrix(read.csv(args[3], header = FALSE)[1, ]))
 
     # read 4th argument, which is output file name
     out_file <- args[4]
diff -r 36b7a5891000 -r 784c107c5861 test-data/group1.txt
--- a/test-data/group1.txt	Thu Feb 22 11:28:22 2018 -0500
+++ b/test-data/group1.txt	Thu Feb 22 11:33:37 2018 -0500
@@ -1,3 +1,1 @@
-2
-3
-4
+2,3,4
diff -r 36b7a5891000 -r 784c107c5861 test-data/group2.txt
--- a/test-data/group2.txt	Thu Feb 22 11:28:22 2018 -0500
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,3 +0,0 @@
-5
-6
-7