diff lib.r @ 37:636e36a64d31 draft

planemo upload commit a5f400649acb64e1c66a92379027ac5abdb4f546

--- a/lib.r	Fri Feb 01 11:29:35 2019 -0500
+++ b/lib.r	Tue Apr 09 11:36:39 2019 -0400
@@ -36,13 +36,13 @@
 #@author G. Le Corguille
 #The function create a zip archive from the different png generated by diffreport
 diffreport_png2zip <- function() {
-    zip("eic.zip",dir(pattern="_eic"))
-    zip("box.zip",dir(pattern="_box"))
+    zip("eic.zip", dir(pattern="_eic"), zip=Sys.which("zip"))
+    zip("box.zip", dir(pattern="_box"), zip=Sys.which("zip"))
 }
 
 #The function create a zip archive from the different tabular generated by diffreport
 diffreport_tabular2zip <- function() {
-    zip("tabular.zip",dir(pattern="tabular/*"))
+    zip("tabular.zip", dir(pattern="tabular/*"), zip=Sys.which("zip"))
 }
 
 #@author G. Le Corguille
@@ -152,7 +152,7 @@
                         diffrep=diffrep[order(diffrep$pvalue), ]
                     }
 
-                    dir.create("tabular")
+                    dir.create("tabular", showWarnings = FALSE)
                     write.table(diffrep, sep="\t", quote=FALSE, row.names=FALSE, file=paste("tabular/",filebase,"_tsv.tabular",sep=""))
 
                     if (listArguments[["eicmax"]] != 0) {