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

[tfry at users.sourceforge.net]

Revision: 3013
          http://rkward.svn.sourceforge.net/rkward/?rev=3013&view=rev
Author:   tfry
Date:     2010-09-11 12:50:31 +0000 (Sat, 11 Sep 2010)

Log Message:
-----------
Two small fixes

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-11 09:03:20 UTC (rev 3012)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R	2010-09-11 12:50:31 UTC (rev 3013)
@@ -515,7 +515,7 @@
 		.my.message ("'n' = ", n, " (replay)")
 		on.exit (.rk.update.hist.actions ())
 		if (missing (n))
-			return (invisible (rk.show.messgae ("Position missing", "Replay error", FALSE)))
+			return (invisible (rk.show.message ("Position missing", "Replay error", FALSE)))
 		if (is.na (n) || n < 0 || n > sP.length)
 			return (invisible (rk.show.message(paste ("replay: 'n' not in valid range: ", n), "Replay error", FALSE)))
 		
@@ -572,7 +572,7 @@
 		.my.message ("in: showPlot")
 		if (!.is.device.managed (devId)) return (invisible ())
 		
-		.n. <- histPositions [[devId]]$pos.cur
+		.n. <- histPositions [[as.character (devId)]]$pos.cur
 		if (index == ifelse (is.na (.n.), sP.length + 1, .n.)) {
 			.my.message ("Same position! No action needed.")
 			return (invisible ())


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