r-gregmisc-users

[R-gregmisc-users] SF.net SVN: r-gregmisc:[1731] trunk/gplots/R/overplot.R

[<wa...@us...>]

Revision: 1731
          http://sourceforge.net/p/r-gregmisc/code/1731
Author:   warnes
Date:     2013-10-11 22:06:20 +0000 (Fri, 11 Oct 2013)
Log Message:
-----------
Fix error when a subgroup contains no finite values

Modified Paths:
--------------
    trunk/gplots/R/overplot.R

Modified: trunk/gplots/R/overplot.R
===================================================================
--- trunk/gplots/R/overplot.R	2013-10-11 21:20:55 UTC (rev 1730)
+++ trunk/gplots/R/overplot.R	2013-10-11 22:06:20 UTC (rev 1731)
@@ -151,6 +151,10 @@
         mycall$lty = i
 
         tmp.y <- y[mycall$subset & cond==level]
+
+        ## If nothing to plot, skip to next level
+        if(!any(is.finite(tmp.y))) next
+        
         min.tmp.y <- min(tmp.y, na.rm=TRUE)
         max.tmp.y <- max(tmp.y, na.rm=TRUE)
 

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[R-gregmisc-users] SF.net SVN: r-gregmisc:[1732] trunk/gplots/R/overplot.R

[<wa...@us...>]

Revision: 1732
          http://sourceforge.net/p/r-gregmisc/code/1732
Author:   warnes
Date:     2013-10-11 22:09:09 +0000 (Fri, 11 Oct 2013)
Log Message:
-----------
Allow standard S3 method handling to locate the correct function.

Modified Paths:
--------------
    trunk/gplots/R/overplot.R

Modified: trunk/gplots/R/overplot.R
===================================================================
--- trunk/gplots/R/overplot.R	2013-10-11 22:06:20 UTC (rev 1731)
+++ trunk/gplots/R/overplot.R	2013-10-11 22:09:09 UTC (rev 1732)
@@ -4,10 +4,10 @@
   {
     m <- match.call()
 
-    m[[1]] <- graphics:::plot.formula
+    m[[1]] <- as.name("plot")
     eval(m, parent.frame() )
 
-    m[[1]] <- gplots:::lowess.formula
+    m[[1]] <- as.name("lowess")
     tmp <- eval(m, parent.frame() )
 
     lines( tmp, col=col, lwd=2, lty=lty )

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[R-gregmisc-users] SF.net SVN: r-gregmisc:[1947] trunk/gplots/R/overplot.R

[<wa...@us...>]

Revision: 1947
          http://sourceforge.net/p/r-gregmisc/code/1947
Author:   warnes
Date:     2015-04-23 21:18:42 +0000 (Thu, 23 Apr 2015)
Log Message:
-----------
- Remove stray browser() call from overplot()

Modified Paths:
--------------
    trunk/gplots/R/overplot.R

Modified: trunk/gplots/R/overplot.R
===================================================================
--- trunk/gplots/R/overplot.R	2015-04-23 21:10:33 UTC (rev 1946)
+++ trunk/gplots/R/overplot.R	2015-04-23 21:18:42 UTC (rev 1947)
@@ -58,8 +58,6 @@
   x.all.min <- min(x, na.rm=TRUE)
   x.all.max <- max(x, na.rm=TRUE)
 
-  if(y.all.min==y.all.max) browser()
-
   if (length(cond) == 0) {
     cond <- list(as.factor(rep(1, length(x))))
   }

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.