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

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

Author: warnes
Date: 2016-03-30 15:52:51 +0200 (Wed, 30 Mar 2016)
New Revision: 2122

Modified:
   pkg/gplots/R/plot.lowess.R
Log:
plotLowess() wasn't finding objects in the caller's environment.

Modified: pkg/gplots/R/plot.lowess.R
===================================================================
--- pkg/gplots/R/plot.lowess.R	2016-03-28 15:01:21 UTC (rev 2121)
+++ pkg/gplots/R/plot.lowess.R	2016-03-30 13:52:51 UTC (rev 2122)
@@ -1,12 +1,13 @@
-plotLowess <- function (formula, data = parent.frame(), ..., subset=parent.frame(),
+plotLowess <- function (formula, data=parent.frame(), ..., subset=parent.frame(),
                         col.lowess="red",
                         lty.lowess=2  )
 {
   m <- match.call(expand.dots=TRUE)
   m[[1]] <- as.name("plot")
-  eval(m)
+  eframe <- parent.frame()
+  eval(m, eframe)
   m[[1]] <- as.name("lowess")
-  lw <- eval(m)
+  lw <- eval(m, eframe)
   lines(lw, col=col.lowess, lty=lty.lowess)
   grid()