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

[m-eik at users.sourceforge.net]

Revision: 3723
          http://rkward.svn.sourceforge.net/rkward/?rev=3723&view=rev
Author:   m-eik
Date:     2011-08-13 10:12:07 +0000 (Sat, 13 Aug 2011)

Log Message:
-----------
.rk.get.installed.packages should now *really* only check for plugins in enhanced packages

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-12 14:21:43 UTC (rev 3722)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R	2011-08-13 10:12:07 UTC (rev 3723)
@@ -96,7 +96,9 @@
 	x <- as.data.frame(installed.packages(fields="Title"))
 	# does a package enhance RKWard, i.e. provide plugins?
 	enhance.rk <- ifelse(is.na(x$Enhances), FALSE, grepl("rkward", x$Enhances))
-	pluginmaps <- ifelse(enhance.rk, .rk.find.package.pluginmaps(x$Package), "")
+	# check for pluginmaps only in packages which enhance RKWard
+	pluginmaps <- rep("", length(enhance.rk))
+	pluginmaps[enhance.rk] <- .rk.find.package.pluginmaps(x$Package[enhance.rk])
 	return(list(Package=as.character(x$Package), Title=as.character(x$Title), 
 		Version=as.character(x$Version), LibPath=as.character(x$LibPath),
 		EnhanceRK=as.logical(enhance.rk), Plugins=as.character(pluginmaps)))


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