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

[kapatp at users.sourceforge.net]

Revision: 3015
          http://rkward.svn.sourceforge.net/rkward/?rev=3015&view=rev
Author:   kapatp
Date:     2010-09-11 13:27:26 +0000 (Sat, 11 Sep 2010)

Log Message:
-----------
Some indentation

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-09-11 13:25:18 UTC (rev 3014)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal_graphics.R	2010-09-11 13:27:26 UTC (rev 3015)
@@ -24,7 +24,7 @@
 	.rk.do.call ("endOpenX11", as.character (dev.cur ()));
 
 	if (getOption ("rk.enable.graphics.history"))
-	rk.record.plot$onAddDevice (old_dev, dev.cur (), is.being.duplicated, is.preview.device)
+		rk.record.plot$onAddDevice (old_dev, dev.cur (), is.being.duplicated, is.preview.device)
 
 	invisible (x)
 }
@@ -71,8 +71,8 @@
 	if (dev.cur() == 1) rk.screen.device ()
 	if (getOption ("rk.enable.graphics.history")) {
 rk.record.plot$.my.message ("------- call begin -----------")
-	.callstr <- sys.call (-sys.parents()[sys.nframe ()])
-	rk.record.plot$record (nextplot.pkg = "graphics", nextplot.call = .callstr)
+		.callstr <- sys.call (-sys.parents()[sys.nframe ()])
+		rk.record.plot$record (nextplot.pkg = "graphics", nextplot.call = .callstr)
 rk.record.plot$.my.message ("------- call end   -----------")
 	}
 	eval (body (.rk.plot.new.default))
@@ -83,7 +83,7 @@
 "dev.off" <- function (which = dev.cur ())
 {
 	if (getOption ("rk.enable.graphics.history"))
-	rk.record.plot$onDelDevice (devId = which)
+		rk.record.plot$onDelDevice (devId = which)
 	
 	# see http://thread.gmane.org/gmane.comp.statistics.rkward.devel/802
 	.rk.do.call ("killDevice", as.character (which))
@@ -109,13 +109,13 @@
 				## TODO: use "trellis" instead of "lattice" to accomodate ggplot2 plots?
 				if (getOption ("rk.enable.graphics.history")) {
 rk.record.plot$.my.message ("------- call begin -----------")
-				rk.record.plot$record (nextplot.pkg = "lattice")
+					rk.record.plot$record (nextplot.pkg = "lattice")
 rk.record.plot$.my.message ("------- call end   -----------")
 				}
 				plot (x, ...)
 				if (getOption ("rk.enable.graphics.history")) {
 rk.record.plot$.my.message ("------- call begin -----------")
-				rk.record.plot$.save.tlo.in.hP ()
+					rk.record.plot$.save.tlo.in.hP ()
 rk.record.plot$.my.message ("------- call end   -----------")
 				}
 				invisible ()
@@ -129,8 +129,8 @@
 			if (dev.cur() == 1) rk.screen.device ()
 			if (getOption ("rk.enable.graphics.history")) {
 rk.record.plot$.my.message ("------- call begin -----------")
-			.callstr <- sys.call (-which.max(sys.parents()))
-			rk.record.plot$record (nextplot.pkg = "graphics", nextplot.call = .callstr)
+				.callstr <- sys.call (-which.max(sys.parents()))
+				rk.record.plot$record (nextplot.pkg = "graphics", nextplot.call = .callstr)
 rk.record.plot$.my.message ("------- call end   -----------")
 			}
 		},

Modified: trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R	2010-09-11 13:25:18 UTC (rev 3014)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R	2010-09-11 13:27:26 UTC (rev 3015)
@@ -71,8 +71,8 @@
 	dev.set (devId)
 	if (getOption ("rk.enable.graphics.history")) {
 	rk.record.plot$.my.message ("------- call begin -----------")
-	rk.record.plot$.set.trellis.last.object ()
-	rk.record.plot$getDevSummary ()
+		rk.record.plot$.set.trellis.last.object ()
+		rk.record.plot$getDevSummary ()
 	rk.record.plot$.my.message ("------- call end   -----------")
 	}
 }


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