[rkward-cvs] SF.net SVN: rkward:[3831] trunk/rkward/rkward/rbackend/rpackages/rkwarddev/ R/rk.XML.convert.R

[m-eik at users.sourceforge.net]

Revision: 3831
          http://rkward.svn.sourceforge.net/rkward/?rev=3831&view=rev
Author:   m-eik
Date:     2011-09-25 17:04:25 +0000 (Sun, 25 Sep 2011)
Log Message:
-----------
rkwarddev: fixed ID naming issue in rk.XML.convert()

Modified Paths:
--------------
    trunk/rkward/rkward/rbackend/rpackages/rkwarddev/R/rk.XML.convert.R

Modified: trunk/rkward/rkward/rbackend/rpackages/rkwarddev/R/rk.XML.convert.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkwarddev/R/rk.XML.convert.R	2011-09-25 16:53:44 UTC (rev 3830)
+++ trunk/rkward/rkward/rbackend/rpackages/rkwarddev/R/rk.XML.convert.R	2011-09-25 17:04:25 UTC (rev 3831)
@@ -49,7 +49,10 @@
 	} else {}
 
 	if(identical(id.name, "auto")){
-		attr.list <- list(id=auto.ids(paste(paste(sources, collapse=""), mode, sep=""), prefix=ID.prefix("logic")))
+		sourceValsForID <- sapply(sources, function(this.source){
+					return(check.ID(this.source))
+			})
+		attr.list <- list(id=auto.ids(paste(paste(sourceValsForID, collapse=""), mode, sep=""), prefix=ID.prefix("logic")))
 	} else if(!is.null(id.name)){
 		attr.list <- list(id=id.name)
 	} else {

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