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

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

Revision: 1102
          http://svn.sourceforge.net/r-gregmisc/?rev=1102&view=rev
Author:   arnima
Date:     2007-07-21 11:57:25 -0700 (Sat, 21 Jul 2007)

Log Message:
-----------
Changed as.character(substitute()) to deparse(substitute()), following
help(substitute) recommendation.

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

Modified: trunk/gdata/R/keep.R
===================================================================
--- trunk/gdata/R/keep.R	2007-07-21 18:49:50 UTC (rev 1101)
+++ trunk/gdata/R/keep.R	2007-07-21 18:57:25 UTC (rev 1102)
@@ -6,7 +6,7 @@
             "Nothing was removed.")
     return(invisible(NULL))
   }
-  names <- as.character(substitute(list(...)))[-1]
+  names <- deparse(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.