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

[<nj...@us...>]

Revision: 940
Author:   nj7w
Date:     2006-03-14 10:00:18 -0800 (Tue, 14 Mar 2006)
ViewCVS:  http://svn.sourceforge.net/r-gregmisc/?rev=940&view=rev

Log Message:
-----------
Fixed R CMD check errors and added trim.default to NAMESPACE

Modified Paths:
--------------
    trunk/gdata/NAMESPACE
    trunk/gdata/R/trim.R
    trunk/gdata/man/resample.Rd
Modified: trunk/gdata/NAMESPACE
===================================================================
--- trunk/gdata/NAMESPACE	2006-03-13 19:50:48 UTC (rev 939)
+++ trunk/gdata/NAMESPACE	2006-03-14 18:00:18 UTC (rev 940)
@@ -33,5 +33,8 @@
 S3method(nobs,data.frame)
 S3method(nobs,default)
 S3method(nobs,lm)
+S3method(trim, character)
+S3method(trim, default)
+S3method(trim, factor)
 S3method(reorder,factor)
 

Modified: trunk/gdata/R/trim.R
===================================================================
--- trunk/gdata/R/trim.R	2006-03-13 19:50:48 UTC (rev 939)
+++ trunk/gdata/R/trim.R	2006-03-14 18:00:18 UTC (rev 940)
@@ -1,6 +1,9 @@
 # $Id$
 
 trim <- function(s)
+  UseMethod("trim",s)
+
+trim.default <- function(s)
   {
     s <- sub("^ +","",s)
     s <- sub(" +$","",s)
@@ -9,12 +12,12 @@
 
 trim.character <- function(s)
 {
-  return(trim(s))
+  return(trim.default(s))
 }
 
 trim.factor <- function(s)
 {
-  levels(s) <- trim(levels(s))
+  levels(s) <- trim.default(levels(s))
   return(s)
 }
 

Modified: trunk/gdata/man/resample.Rd
===================================================================
--- trunk/gdata/man/resample.Rd	2006-03-13 19:50:48 UTC (rev 939)
+++ trunk/gdata/man/resample.Rd	2006-03-14 18:00:18 UTC (rev 940)
@@ -57,5 +57,4 @@
       sample(x, n, ...)
   }
 }
-\keyword{ ~kwd1 }% at least one, from doc/KEYWORDS
-\keyword{ ~kwd2 }% __ONLY ONE__ keyword per line
+\keyword{misc}% at least one, from doc/KEYWORDS


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