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

[kapatp at users.sourceforge.net]

Revision: 2895
          http://rkward.svn.sourceforge.net/rkward/?rev=2895&view=rev
Author:   kapatp
Date:     2010-06-24 01:19:15 +0000 (Thu, 24 Jun 2010)

Log Message:
-----------
Some cosmetic changes

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

Modified: trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal_graphics.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal_graphics.R	2010-06-24 01:15:13 UTC (rev 2894)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal_graphics.R	2010-06-24 01:19:15 UTC (rev 2895)
@@ -92,7 +92,8 @@
 .rk.dev.off.default <- grDevices::dev.off
 
 # see .rk.fix.assignmetns () in internal.R
-".rk.fix.assignments.graphics" <- function () {
+".rk.fix.assignments.graphics" <- function ()
+{
 	assignInNamespace ("plot.new", plot.new, envir=as.environment ("package:graphics"))
 	assignInNamespace ("dev.off", dev.off, envir=as.environment ("package:grDevices"))
 }

Modified: trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R	2010-06-24 01:15:13 UTC (rev 2894)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R	2010-06-24 01:19:15 UTC (rev 2895)
@@ -155,23 +155,23 @@
 	rk.record.plot$showFirst (deviceId)
 	rk.record.plot$printPars ()
 }
-"rk.next.plot" <- function (deviceId = 2)
+"rk.previous.plot" <- function (deviceId = 2)
 {
-	rk.record.plot$showNext (deviceId)
+	rk.record.plot$showPrevious (deviceId)
 	rk.record.plot$printPars ()
 }
-"rk.current.plot" <- function (deviceId = 2)
+"rk.next.plot" <- function (deviceId = 2)
 {
-	if (!(deviceId %in% .rk.preview.devices)) rk.record.plot$record (deviceId, newplotflag=FALSE, force=TRUE)
+	rk.record.plot$showNext (deviceId)
 	rk.record.plot$printPars ()
 }
-"rk.previous.plot" <- function (deviceId = 2)
+"rk.last.plot" <- function (deviceId = 2)
 {
-	rk.record.plot$showPrevious (deviceId)
+	rk.record.plot$showLast (deviceId)
 	rk.record.plot$printPars ()
 }
-"rk.last.plot" <- function (deviceId = 2)
+"rk.current.plot" <- function (deviceId = 2)
 {
-	rk.record.plot$showLast (deviceId)
+	if (!(deviceId %in% .rk.preview.devices)) rk.record.plot$record (deviceId, newplotflag=FALSE, force=TRUE)
 	rk.record.plot$printPars ()
 }


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