[Distr-commits] r966 - branches/distr-2.6/pkg/distr/R

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

Author: ruckdeschel
Date: 2014-08-19 03:48:22 +0200 (Tue, 19 Aug 2014)
New Revision: 966

Modified:
   branches/distr-2.6/pkg/distr/R/plot-methods_LebDec.R
Log:
[distr] removed <<- assignment in plot-methods_LebDec.R --- it did not help to fix the glitch with panel.first anyway, and later on RobAStBase complains about it

Modified: branches/distr-2.6/pkg/distr/R/plot-methods_LebDec.R
===================================================================
--- branches/distr-2.6/pkg/distr/R/plot-methods_LebDec.R	2014-08-19 00:27:04 UTC (rev 965)
+++ branches/distr-2.6/pkg/distr/R/plot-methods_LebDec.R	2014-08-19 01:48:22 UTC (rev 966)
@@ -57,16 +57,16 @@
       xlab0.d <- xlab0.c <- list("d"="x", "p"="q", "q"="p")
       ylab0.d <- ylab0.c <- list("d"="d(x)", "p"="p(q)", "q"="q(p)")
 
-      pF <<- expression({})
+      pF <- expression({})
       if(!is.null(dots[["panel.first"]])){
-          pF <<- .panel.mingle(dots,"panel.first")
+          pF <- .panel.mingle(dots,"panel.first")
       }
-      pF <<- .fillList(pF, l.draw)
-      pL <<- expression({})
+      pF <- .fillList(pF, l.draw)
+      pL <- expression({})
       if(!is.null(dots[["panel.last"]])){
-          pL <<- .panel.mingle(dots,"panel.last")
+          pL <- .panel.mingle(dots,"panel.last")
       }
-      pL <<- .fillList(pL, l.draw)
+      pL <- .fillList(pL, l.draw)
       dots$panel.first <- dots$panel.last <- NULL
 
       plotCount <- 1