Mercurial > repos > proteore > proteore_goprofiles

changeset 10:2138e0035e57 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit 4efc56eb769fbceb66c64181441ff8781d523454-dirty
author proteore
date Mon, 04 Mar 2019 08:20:52 -0500
parents 948fecb6a40b
children 3ddc1f78773d
files goprofiles.R goprofiles.xml
diffstat 2 files changed, 11 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/goprofiles.R	Mon Mar 04 05:48:48 2019 -0500
+++ b/goprofiles.R	Mon Mar 04 08:20:52 2019 -0500
@@ -92,11 +92,16 @@
 
 #return height and width of plot in inches from profile
 plot_size_from_nb_onto <- function(profile){
-    width=10
-    range = seq(50, 2000, by=25)
-    names(range) = seq(8,242, by=3)
-    nb_onto = round(nrow(profile[[1]])/25)*25
-    height= as.integer(names(which(range==nb_onto)))
+  width=10
+  range = seq(25, 2000, by=25)
+  names(range) = seq(5,242, by=3)
+  nb_onto = round(nrow(profile[[1]])/25)*25
+  if (nb_onto < 25) {nb_onto = 25}
+    if (nb_onto <= 2000) {
+      height= as.integer(names(which(range==nb_onto)))
+    } else {
+      height=250
+    }
   return (c(width,height))
 }
 
--- a/goprofiles.xml	Mon Mar 04 05:48:48 2019 -0500
+++ b/goprofiles.xml	Mon Mar 04 08:20:52 2019 -0500
@@ -1,4 +1,4 @@
-<tool id="goProfiles" name="Statistical analysis of functional profiles" version="2019.02.27">
+<tool id="goProfiles" name="Statistical analysis of functional profiles" version="2019.02.27.1">
     <description>(Human, Mouse) [goProfiles]</description>
     <requirements> 
         <requirement type="package" version="3.4.1">R</requirement>