r-gregmisc-users

[R-gregmisc-users] SF.net SVN: r-gregmisc: [1094] trunk/gdata/R

[<gg...@us...>]

Revision: 1094
          http://svn.sourceforge.net/r-gregmisc/?rev=1094&view=rev
Author:   ggorjan
Date:     2007-06-06 03:15:49 -0700 (Wed, 06 Jun 2007)

Log Message:
-----------
making codetools happy

Modified Paths:
--------------
    trunk/gdata/R/mapLevels.R
    trunk/gdata/R/unknown.R

Modified: trunk/gdata/R/mapLevels.R
===================================================================
--- trunk/gdata/R/mapLevels.R	2007-05-20 23:57:18 UTC (rev 1093)
+++ trunk/gdata/R/mapLevels.R	2007-06-06 10:15:49 UTC (rev 1094)
@@ -2,7 +2,7 @@
 ###------------------------------------------------------------------------
 ### What: Mapping levels
 ### $Id$
-### Time-stamp: <2006-10-29 16:45:20 ggorjan>
+### Time-stamp: <2007-04-26 13:16:18 ggorjan>
 ###------------------------------------------------------------------------
 
 ### {{{ mapLevels
@@ -12,7 +12,7 @@
 mapLevels <- function(x, codes=TRUE, sort=TRUE, drop=FALSE,
                       combine=FALSE, ...)
 {
-  UseMethod("mapLevels", x=x)
+  UseMethod("mapLevels")
 }
 
 mapLevels.default <- function(x, codes=TRUE, sort=TRUE, drop=FALSE,
@@ -282,6 +282,7 @@
 
 ### }}}
 ### {{{ mapLevels<-
+
 ###------------------------------------------------------------------------
 
 "mapLevels<-" <- function(x, value)

Modified: trunk/gdata/R/unknown.R
===================================================================
--- trunk/gdata/R/unknown.R	2007-05-20 23:57:18 UTC (rev 1093)
+++ trunk/gdata/R/unknown.R	2007-06-06 10:15:49 UTC (rev 1094)
@@ -2,14 +2,15 @@
 ###------------------------------------------------------------------------
 ### What: Change given unknown value to NA and vice versa
 ### $Id$
-### Time-stamp: <2006-11-28 15:02:19 ggorjan>
+### Time-stamp: <2007-04-26 13:16:10 ggorjan>
 ###------------------------------------------------------------------------
 
 ### {{{ isUnknown
+
 ###------------------------------------------------------------------------
 
 isUnknown <- function(x, unknown=NA, ...)
-  UseMethod("isUnknown", x=x)
+  UseMethod("isUnknown")
 
 isUnknown.default <- function(x, unknown=NA, ...)
 {
@@ -49,6 +50,7 @@
 
 ### }}}
 ### {{{ unknownToNA
+
 ###------------------------------------------------------------------------
 
 unknownToNA <- function(x, unknown, warning=FALSE, ...)
@@ -95,6 +97,7 @@
 
 ### }}}
 ### {{{ NAToUnknown
+
 ###------------------------------------------------------------------------
 
 NAToUnknown <- function(x, unknown, force=FALSE, call.=FALSE, ...)


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

[R-gregmisc-users] SF.net SVN: r-gregmisc: [1103] trunk/gdata/R

[<ar...@us...>]

Revision: 1103
          http://svn.sourceforge.net/r-gregmisc/?rev=1103&view=rev
Author:   arnima
Date:     2007-07-22 02:27:18 -0700 (Sun, 22 Jul 2007)

Log Message:
-----------
Reverted back to as.character(substitute(x)), so user can run keep(x),
keep("x"), Args(x), and Args("x").

Modified Paths:
--------------
    trunk/gdata/R/Args.R
    trunk/gdata/R/keep.R

Modified: trunk/gdata/R/Args.R
===================================================================
--- trunk/gdata/R/Args.R	2007-07-21 18:57:25 UTC (rev 1102)
+++ trunk/gdata/R/Args.R	2007-07-22 09:27:18 UTC (rev 1103)
@@ -1,6 +1,6 @@
 Args <- function(name, sort.args=FALSE)
 {
-  a <- formals(get(deparse(substitute(name)), pos=1))
+  a <- formals(get(as.character(substitute(name)), pos=1))
   if(is.null(a))
     return(NULL)
   arg.labels <- names(a)

Modified: trunk/gdata/R/keep.R
===================================================================
--- trunk/gdata/R/keep.R	2007-07-21 18:57:25 UTC (rev 1102)
+++ trunk/gdata/R/keep.R	2007-07-22 09:27:18 UTC (rev 1103)
@@ -6,7 +6,7 @@
             "Nothing was removed.")
     return(invisible(NULL))
   }
-  names <- deparse(substitute(list(...)))[-1]
+  names <- as.character(substitute(list(...)))[-1]
   list <- c(list, names)
   keep.elements <- match(list, ls(1))
   if(any(is.na(keep.elements)))


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