# HG changeset patch
# User anmoljh
# Date 1508330472 14400
# Node ID d98e0124cb31367158226c04660f3ae380140a92
# Parent  85944f34e1292549c633a9751d1142d36aa024e0
planemo upload commit ed84801645679d29264a5946c6e7669d26c07f39-dirty

diff -r 85944f34e129 -r d98e0124cb31 csv2rdata.R
--- a/csv2rdata.R	Wed Oct 18 08:17:03 2017 -0400
+++ b/csv2rdata.R	Wed Oct 18 08:41:12 2017 -0400
@@ -13,7 +13,7 @@
     dataX <- file[,1:(col-1)]
     dataY <- file[,col]
     stopifnot(nrow(dataX) == length(dataY))
-    saveRDS(dataX,dataY,file=arg2)
+    save(dataX,dataY,file=arg2)
   }
   else{
      cat("the Outcome column has less number of entry than number of compounds.please check input file.\n",file=stderr())
diff -r 85944f34e129 -r d98e0124cb31 csv2rdata.xml
--- a/csv2rdata.xml	Wed Oct 18 08:17:03 2017 -0400
+++ b/csv2rdata.xml	Wed Oct 18 08:41:12 2017 -0400
@@ -18,13 +18,13 @@
     </inputs>
 
     <outputs>
-	    <data name="RData" format="rdata" label="Input.rds" />
+	    <data name="RData" format="rdata" label="Input.rdata" />
     </outputs>
 
     <tests>
 	<test>
            <param  name="file1" value="non_redundant.csv" />
-           <output name="RData" file="desc.rds" compare="sim_size" delta="50000" />
+           <output name="RData" file="desc.rdata" compare="sim_size" delta="50000" />
         </test>
     </tests>