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

[tfry at users.sourceforge.net]

Revision: 858
          http://svn.sourceforge.net/rkward/?rev=858&view=rev
Author:   tfry
Date:     2006-10-12 05:59:20 -0700 (Thu, 12 Oct 2006)

Log Message:
-----------
Properly encode character constants such as \t. Minor performance hit, still much better than two revs ago

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	2006-10-12 12:00:27 UTC (rev 857)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R	2006-10-12 12:59:20 UTC (rev 858)
@@ -287,9 +287,9 @@
 	} else if (fun) {	# a function
 		argnames <- as.character (names (formals (x)))
 		argvalues <- as.character (lapply (formals (x), function (v) {
-					if (is.character (v)) return (paste ("\"", v, "\"", sep=""))
-					else return (v)
-				} ))
+						if (is.character (v)) return (encodeString (v, quote="\""))
+						else return (v)
+					} ))
 		return (invisible (list (name, type, classes, meta, dims, argnames, argvalues)))
 	}
 	return (invisible (list (name, type, classes, meta, dims)))


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