[rkward-cvs] SF.net SVN: rkward: [775] trunk/rkward/rkward/rbackend/rpackages/rkward

tfry at users.sourceforge.net tfry at users.sourceforge.net
Thu Sep 28 14:29:46 UTC 2006


Revision: 775
          http://svn.sourceforge.net/rkward/?rev=775&view=rev
Author:   tfry
Date:     2006-09-28 07:29:41 -0700 (Thu, 28 Sep 2006)

Log Message:
-----------
replace evil dQuote () usage with manual insertion of quotes. dQuote may use typographic quotes

Modified Paths:
--------------
    trunk/rkward/rkward/rbackend/rpackages/rkward/DESCRIPTION
    trunk/rkward/rkward/rbackend/rpackages/rkward/R/public.R

Modified: trunk/rkward/rkward/rbackend/rpackages/rkward/DESCRIPTION
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkward/DESCRIPTION	2006-09-28 11:16:20 UTC (rev 774)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/DESCRIPTION	2006-09-28 14:29:41 UTC (rev 775)
@@ -1,6 +1,6 @@
 Package: rkward
 Title: Provides some helper functions for the RKWard frontend
-Version: 0.3.7
+Version: 0.3.8
 Author: Thomas Friedrichsmeier and the RKWard Team
 Description: Most of the functions in here are really only needed for the internal communication between RKWard and R. There are also a few functions, which allow access to RKWard or RKWard specifics. Most is not implemented, yet.
 Maintainer: RKWard-devel mailing list <rkward-devel at lists.sourceforge.net>

Modified: trunk/rkward/rkward/rbackend/rpackages/rkward/R/public.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkward/R/public.R	2006-09-28 11:16:20 UTC (rev 774)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/public.R	2006-09-28 14:29:41 UTC (rev 775)
@@ -153,9 +153,9 @@
 			ret <- sprintf ("%s, ", ret)
 		}
 		if (names (x)[i] != "") {
-			ret <- sprintf ("%s%s=%s", ret, names (x)[i], dQuote (x[i]))
+			ret <- sprintf ("%s%s=\"%s\"", ret, names (x)[i], x[i])
 		} else {
-			ret <- sprintf ("%s%s", ret, dQuote (x[i]))
+			ret <- sprintf ("%s\"%s\"", ret, x[i])
 		}
 	}
 	ret <- sprintf ("%s)", ret)


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