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

[kapatp at users.sourceforge.net]

Revision: 3049
          http://rkward.svn.sourceforge.net/rkward/?rev=3049&view=rev
Author:   kapatp
Date:     2010-09-18 06:24:58 +0000 (Sat, 18 Sep 2010)

Log Message:
-----------
small fix

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	2010-09-18 06:23:50 UTC (rev 3048)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R	2010-09-18 06:24:58 UTC (rev 3049)
@@ -51,7 +51,7 @@
 	# dev.off () sets dev.next () as active, which may not have been active before rk.graph.on was called;
 	# so reset the correct device as active:
 	i <- get (".rk.active.device", pos = "package:rkward")
-	if ((!is.null (i)) && (i %in% dev.list ())) dev.set (i)
+	if ((!is.null (i)) && (i %in% dev.list ())) ret <- dev.set (i)
 	ret
 }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.