diff probecoverage.r @ 4:daec4df60281 draft

planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/probecoverage commit 2b4a222804a40730abdaec6fb6aefc2295e89e11

--- a/probecoverage.r	Sun Sep 24 14:47:11 2017 -0400
+++ b/probecoverage.r	Sun Sep 24 18:10:12 2017 -0400
@@ -40,7 +40,12 @@
 
 ## end of function
 ## let's do a dataframe before plotting
-maxdepth <- trunc(max(Table[,5:length(Table)]/(Table$end-Table$start))) + 20
+if (args$method == 'bedtools') {
+    maxdepth <- trunc(max(Table[,5:length(Table)]/(Table$end-Table$start))) + 20
+    } else {
+    maxdepth <- trunc(max(Table[,5:length(Table)])) + 20
+    }
+
 graphpoints <- data.frame(1:maxdepth)
 i <- 5
 for (colonne in colnames(Table)[5:length(colnames(Table))]) {