[Distr-commits] r342 - pkg/SweaveListingUtils/R

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

Author: stamats
Date: 2008-11-20 18:52:44 +0100 (Thu, 20 Nov 2008)
New Revision: 342

Modified:
   pkg/SweaveListingUtils/R/keywordsStyle.R
Log:
one more change to obtain the results of base::library ...

Modified: pkg/SweaveListingUtils/R/keywordsStyle.R
===================================================================
--- pkg/SweaveListingUtils/R/keywordsStyle.R	2008-11-19 18:42:31 UTC (rev 341)
+++ pkg/SweaveListingUtils/R/keywordsStyle.R	2008-11-20 17:52:44 UTC (rev 342)
@@ -141,7 +141,7 @@
              pkg <- as.character(substitute(package))
              mc <- as.list(match.call(expand.dots = FALSE))[-1]
              rerg <- .LibOrRequire(pkg, mc, base::library)
-             if(class(rerg) == "libraryIQR") return(rerg)
+             if(class(rerg) == "libraryIQR" | class(rerg) == "packageInfo") return(rerg)
              if(logical.return) return(rerg)
              return(invisible(rerg))
     }