[R-gregmisc-commits] r2095 - pkg/gplots/R

[noreply at r-forge.r-project.org]

Author: warnes
Date: 2016-03-25 15:17:30 +0100 (Fri, 25 Mar 2016)
New Revision: 2095

Modified:
   pkg/gplots/R/plot.lowess.R
Log:
Ensure lowess plot methods (invisibly) return the lowess object.

Modified: pkg/gplots/R/plot.lowess.R
===================================================================
--- pkg/gplots/R/plot.lowess.R	2016-03-25 13:41:59 UTC (rev 2094)
+++ pkg/gplots/R/plot.lowess.R	2016-03-25 14:17:30 UTC (rev 2095)
@@ -9,6 +9,8 @@
   lw <- eval(m)
   lines(lw, col=col.lowess, lty=lty.lowess)
   grid()
+
+  invisible(lw)
 }
 
 plot.lowess <- function(x, y, ..., col.lowess="red", lty.lowess=2)
@@ -20,4 +22,6 @@
 
   lines(x$x, x$y, col=col.lowess, lty=lty.lowess)
   grid()
+
+  invisible(x)
 }