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

[kapatp at users.sourceforge.net]

Revision: 2972
          http://rkward.svn.sourceforge.net/rkward/?rev=2972&view=rev
Author:   kapatp
Date:     2010-08-27 23:17:30 +0000 (Fri, 27 Aug 2010)

Log Message:
-----------
Cosmetic changes

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-08-27 22:47:54 UTC (rev 2971)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R	2010-08-27 23:17:30 UTC (rev 2972)
@@ -298,7 +298,7 @@
 		cur.deviceId <- dev.cur ()
 		dev.set (as.numeric(deviceId))
 		
-		status.display <- paste ("Device: ", deviceId, ", History: ", n, sep = '')
+		status.display <- paste ("Dev: ", deviceId, ", Pos: ", n, sep = '')
 		if (n > 0 && n <= length(recorded)) {
 			if (gType [[n]] == "standard") {
 				status.display <- paste (status.display, ", Call: Standard graphics", sep = "")
@@ -307,7 +307,8 @@
 				status.display <- paste (status.display, ", Call: ", deparse (recorded[[n]]$call), sep = "")
 				plot (recorded[[n]], save.object = (cur.deviceId == as.numeric (deviceId)))
 			}
-			message (status.display, "\n") # add to a new status bar?
+			status.display <- paste (status.display, ", Size: ", round (object.size (recorded[[n]])/1024, 2), " Kb", sep = "")
+			message ("--\n", status.display, "\n--\n") # add to a new status bar?
 			histPositions [[deviceId]] <<- n
 			.rk.graph.history.gui () # (deviceId)
 		}
@@ -349,10 +350,11 @@
 	}
 	printPars <- function ()
 	{
-		message ('History len: ', length (recorded))
+		message ('History length   : ', length (recorded))
+		message ("History size (KB): ", round (object.size (recorded) / 1024, 2))
 		message ('Current devices  : ', paste (names (histPositions), collapse = ', ')) 
 		message ('Current positions: ', paste (unlist (histPositions), collapse = ', ')) 
-		message ('New plot exists? ', paste (unlist (newPlotExists), collapse = ', ')) 
+		message ('New plot exists? : ', paste (unlist (newPlotExists), collapse = ', ')) 
 		message ('gType @ these pos: ', paste (unlist (gType [unlist (histPositions)]), collapse = ', '))
 		message ('gType newplot?   : ', gType.newplot)
 	}


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