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

tfry at users.sourceforge.net tfry at users.sourceforge.net
Mon Sep 6 16:42:47 UTC 2010


Revision: 3001
          http://rkward.svn.sourceforge.net/rkward/?rev=3001&view=rev
Author:   tfry
Date:     2010-09-06 16:42:46 +0000 (Mon, 06 Sep 2010)

Log Message:
-----------
Use try() for safety

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-06 10:48:53 UTC (rev 3000)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R	2010-09-06 16:42:46 UTC (rev 3001)
@@ -369,7 +369,7 @@
 			positions [2 * (1:ndevs) - 1] <- deviceIds
 			positions [2 * (1:ndevs)] <- unlist (histPositions[deviceIds], use.names = FALSE)
 			labels <- NULL
-			if (length (recorded) > 0) labels <- sapply (1:length (recorded), .get.oldplot.call)
+			if (length (recorded) > 0) labels <- sapply (1:length (recorded), function (x) try (.get.oldplot.call (x)))
 			.rk.do.call ("updateDeviceHistory", c (length (recorded), labels, positions));
 		}
 		#print (positions) # DEBUG


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




More information about the rkward-tracker mailing list