[rkward-cvs] SF.net SVN: rkward-code:[4578] trunk/rkward/rkward/rbackend/rpackages/ rkward/R/public_graphics.R

[tfry at users.sf.net]

Revision: 4578
          http://sourceforge.net/p/rkward/code/4578
Author:   tfry
Date:     2013-03-10 16:52:07 +0000 (Sun, 10 Mar 2013)
Log Message:
-----------
Addition to r4576: Also don't add a broken entry while replaying a lattice plot.

Revision Links:
--------------
    http://sourceforge.net/p/rkward/code/4576

Modified Paths:
--------------
    trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R

Modified: trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R	2013-03-09 12:59:29 UTC (rev 4577)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R	2013-03-10 16:52:07 UTC (rev 4578)
@@ -587,6 +587,7 @@
 		pkg <- savedPlots [[st]]$pkg
 		
 		if (pkg %in% c("graphics", "unknown")) {
+			# NOTE: replayPlot() does *not* call plot.new()
 			replayPlot (savedPlots [[st]]$plot)
 		} else if (pkg == "lattice") {
 			# (re-)plot the lattice object but, if the current window is NOT active, then do not save
@@ -595,7 +596,9 @@
 			# access it
 			if (cur.devId != as.numeric (devId))
 				tlo.ls <- get ("lattice.status", envir = lattice:::.LatticeEnv)
+			options (rk.enable.graphics.history=FALSE); on.exit (options (rk.enable.graphics.history=TRUE))
 			plot (savedPlots [[st]]$plot, save.object = (cur.devId == as.numeric (devId)))
+			options (rk.enable.graphics.history=TRUE)
 			if (cur.devId != as.numeric (devId))
 				assign ("lattice.status", tlo.ls, envir = lattice:::.LatticeEnv)
 		}