[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.