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