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

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

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

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

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

Modified: trunk/gdata/R/Args.R
===================================================================
--- trunk/gdata/R/Args.R	2007-07-18 11:48:20 UTC (rev 1100)
+++ trunk/gdata/R/Args.R	2007-07-21 18:49:50 UTC (rev 1101)
@@ -1,6 +1,6 @@
 Args <- function(name, sort.args=FALSE)
 {
-  a <- formals(get(as.character(substitute(name)), pos=1))
+  a <- formals(get(deparse(substitute(name)), pos=1))
   if(is.null(a))
     return(NULL)
   arg.labels <- names(a)


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