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