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

[tfry at users.sf.net]

Revision: 4732
          http://sourceforge.net/p/rkward/code/4732
Author:   tfry
Date:     2013-04-29 07:36:00 +0000 (Mon, 29 Apr 2013)
Log Message:
-----------
For consistency

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-04-29 07:35:01 UTC (rev 4731)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R	2013-04-29 07:36:00 UTC (rev 4732)
@@ -173,7 +173,7 @@
 				if (exists ("title", inherits=FALSE) && !missing (title)) args$title <- title
 				if (exists ("antialias", inherits=FALSE) && !missing (antialias)) args$antialias <- !identical (antialias, "none")
 				do.call (rkward::RK, args)
-			} else if (identical (rk.mode, "capture")) {
+			} else if (identical (rk.mode, "embed")) {
 				if (missing (width)) width <- getOption ("rk.screendevice.width")
 				if (!is.numeric (width)) width <- 7
 				if (missing (height)) height <- getOption ("rk.screendevice.height")