[Sciviews-commits] r61 - pkg/svMisc/R

[noreply at r-forge.r-project.org]

Author: romain
Date: 2008-10-14 18:02:35 +0200 (Tue, 14 Oct 2008)
New Revision: 61

Modified:
   pkg/svMisc/R/CompletePlus.R
Log:
small bug fix in descFun when package is identified as "", 
was the case for NULL, NA, ...

Modified: pkg/svMisc/R/CompletePlus.R
===================================================================
--- pkg/svMisc/R/CompletePlus.R	2008-10-13 16:31:04 UTC (rev 60)
+++ pkg/svMisc/R/CompletePlus.R	2008-10-14 16:02:35 UTC (rev 61)
@@ -87,7 +87,7 @@
 			packs <- find.multiple( funs )
     	desc.fun <- rep("", length(packs))
 			for (pack in unique(packs)) {
-				if (pack != ".GlobalEnv") {
+				if (! pack %in% c("", ".GlobalEnv" ) ) {
 					desc.fun[packs == pack] <- descFun(funs[packs == pack], pack)
 				}
 			}