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

[tfry at users.sourceforge.net]

Revision: 3358
          http://rkward.svn.sourceforge.net/rkward/?rev=3358&view=rev
Author:   tfry
Date:     2011-01-12 09:59:34 +0000 (Wed, 12 Jan 2011)

Log Message:
-----------
Small correction

Modified Paths:
--------------
    trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R

Modified: trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R	2011-01-12 09:02:18 UTC (rev 3357)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R	2011-01-12 09:59:34 UTC (rev 3358)
@@ -41,7 +41,7 @@
 
 # function below is only needed to ensure a nice ordering of the columns. Simply adding a new column would be much easier than this.
 ".rk.data.frame.insert.column" <- function (x, label, index=0) {
-	column <- rep (NA, times=dim (x)[2])
+	column <- as.numeric (rep (NA, times=dim (x)[2]))
 	if ((index == 0) || (index > dim (x)[2])) {	# insert column at end
 		eval (substitute (x[[label]] <<- column))
 	} else {


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