# HG changeset patch
# User anmoljh
# Date 1508329023 14400
# Node ID 85944f34e1292549c633a9751d1142d36aa024e0
# Parent  4e55a218baa55dce52ecb1ae8f9cd94612917c68
planemo upload commit ed84801645679d29264a5946c6e7669d26c07f39-dirty

diff -r 4e55a218baa5 -r 85944f34e129 csv2rdata.R
--- a/csv2rdata.R	Wed Oct 18 04:51:39 2017 -0400
+++ b/csv2rdata.R	Wed Oct 18 08:17:03 2017 -0400
@@ -13,7 +13,7 @@
     dataX <- file[,1:(col-1)]
     dataY <- file[,col]
     stopifnot(nrow(dataX) == length(dataY))
-    save(dataX,dataY,file=arg2)
+    saveRDS(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 4e55a218baa5 -r 85944f34e129 csv2rdata.xml
--- a/csv2rdata.xml	Wed Oct 18 04:51:39 2017 -0400
+++ b/csv2rdata.xml	Wed Oct 18 08:17:03 2017 -0400
@@ -18,13 +18,13 @@
     </inputs>
 
     <outputs>
-	    <data name="RData" format="data" label="Input.RData" />
+	    <data name="RData" format="rdata" label="Input.rds" />
     </outputs>
 
     <tests>
 	<test>
            <param  name="file1" value="non_redundant.csv" />
-           <output name="RData" file="desc.RData" compare="sim_size" delta="50000" />
+           <output name="RData" file="desc.rds" compare="sim_size" delta="50000" />
         </test>
     </tests>