[chronojump] Better X axis on 1RM Any exercise

[Xavier de Blas <xaviblas src gnome org>]

commit 26417f7f7e5e8eae4f417dc1e38ae9e4acae25d1
Author: Xavier de Blas <xaviblas gmail com>
Date:   Tue Jun 18 10:10:56 2013 +0200

    Better X axis on 1RM Any exercise

 encoder/graph.R |    5 ++++-
 1 files changed, 4 insertions(+), 1 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index 9cf873a..1d90ffc 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -1009,7 +1009,10 @@ paintCrossVariables <- function (paf, varX, varY, option, isAlone, title, single
                        load1RM = ( speed1RM - c.intercept ) / c.x
 
                        #plot(x,y, xlim=c(min(x),load1RM), ylim=c(speed1RM, max(y)), xlab=varX, ylab="", 
pch=21,col=colBalls,bg=bgBalls,cex=cexBalls,axes=F)
-                       plot(x,y, xlim=c(min(x),load1RM), ylim=c(0, max(y)), xlab=varX, ylab="", 
pch=21,col=colBalls,bg=bgBalls,cex=cexBalls,axes=F)
+                       maxX=max(x)
+                       if(load1RM > maxX)
+                               maxX=load1RM
+                       plot(x,y, xlim=c(min(x),maxX), ylim=c(0, max(y)), xlab=varX, ylab="", 
pch=21,col=colBalls,bg=bgBalls,cex=cexBalls,axes=F)
                        abline(fit,col="red")
                        abline(h=speed1RM,col="gray",lty=2)
                        abline(v=load1RM,col="gray",lty=2)