[Sciviews-commits] r66 - in pkg/svTools: . R

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

Author: romain
Date: 2008-11-03 10:18:29 +0100 (Mon, 03 Nov 2008)
New Revision: 66

Modified:
   pkg/svTools/DESCRIPTION
   pkg/svTools/R/packages.R
Log:
small typo bug

Modified: pkg/svTools/DESCRIPTION
===================================================================
--- pkg/svTools/DESCRIPTION	2008-10-31 10:24:49 UTC (rev 65)
+++ pkg/svTools/DESCRIPTION	2008-11-03 09:18:29 UTC (rev 66)
@@ -1,8 +1,8 @@
 Package: svTools
 Type: Package
 Title: Set of tools (wrapper for packages tools and codetools)
-Version: 0.0-1
-Date: 2008-10-31
+Version: 0.0-2
+Date: 2008-11-03
 Author: Romain Francois <francoisromain at free.fr>
 Maintainer: Romain Francois <francoisromain at free.fr>
 Description: Set of tools aimed at wrapping some of the functionalities

Modified: pkg/svTools/R/packages.R
===================================================================
--- pkg/svTools/R/packages.R	2008-10-31 10:24:49 UTC (rev 65)
+++ pkg/svTools/R/packages.R	2008-11-03 09:18:29 UTC (rev 66)
@@ -16,14 +16,13 @@
  def <- c( getOption("defaultPackages"), "base")
  ip <- cbind( ip, 
    "Loaded"  = ifelse( ip[,'Package'] %in% lp , 1, 0 ), 
-   "Default" = ifelse( ip[,'-Package'] %in% def, 1, 0 )
+   "Default" = ifelse( ip[,'Package'] %in% def, 1, 0 )
  )
  ip 
 }
 
 
-packdesc  <- function (pkg, lib.loc = NULL, fields = NULL, drop = TRUE, encoding = "") 
-{
+packdesc  <- function (pkg, lib.loc = NULL, fields = NULL, drop = TRUE, encoding = "") {
     retval <- list()
     if (!is.null(fields)) {
         fields <- as.character(fields)