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

[m-eik at users.sourceforge.net]

Revision: 3721
          http://rkward.svn.sourceforge.net/rkward/?rev=3721&view=rev
Author:   m-eik
Date:     2011-08-12 11:42:09 +0000 (Fri, 12 Aug 2011)

Log Message:
-----------
fixed problem in .rk.find.package.pluginmaps() when called on more than one package

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-08-11 22:50:44 UTC (rev 3720)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R	2011-08-12 11:42:09 UTC (rev 3721)
@@ -78,10 +78,14 @@
 ".rk.find.package.pluginmaps" <- function (package, all.maps=FALSE) {
 	if(isTRUE(all.maps)){
 		# look for all pluginmaps in the rkward folder
-		pluginmaps <- dir(system.file("rkward", package=package), pattern="*.pluginmap", full.names=TRUE)
+		pluginmaps <- sapply(package, function(this.package){
+				dir(system.file("rkward", package=this.package), pattern="*.pluginmap", full.names=TRUE)
+			})
 	} else {
 		# check if a main .pluginmap file is provided
-		pluginmaps <- system.file(file.path("rkward", paste(package, ".pluginmap", sep="")), package=package)
+		pluginmaps <-  sapply(package, function(this.package){
+				system.file(file.path("rkward", paste(this.package, ".pluginmap", sep="")), package=this.package)
+			})
 	}
 	return(pluginmaps)
 }


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