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

[tfry at users.sourceforge.net]

Revision: 3000
          http://rkward.svn.sourceforge.net/rkward/?rev=3000&view=rev
Author:   tfry
Date:     2010-09-06 10:48:53 +0000 (Mon, 06 Sep 2010)

Log Message:
-----------
Minor correction

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:46:53 UTC (rev 2999)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R	2010-09-06 10:48:53 UTC (rev 3000)
@@ -365,7 +365,7 @@
 		deviceIds <- deviceIds [deviceIds != "1"] # ignore NULL device
 		ndevs <- length (deviceIds)
 		if (ndevs>0) {
-			positions <- character (1 + 2 * ndevs)
+			positions <- character (2 * ndevs)
 			positions [2 * (1:ndevs) - 1] <- deviceIds
 			positions [2 * (1:ndevs)] <- unlist (histPositions[deviceIds], use.names = FALSE)
 			labels <- NULL


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