If you're trying to find the textual form of an actual argument, here's
one way:
> foo <- function(x) {
+ xn <- substitute(x)
+ if (is.name(xn) && !exists(as.character(xn)))
+ as.character(xn)
+ else
+ x
+ }
> foo(x)
[1] 3
> foo(xx)
[1] "xx"
> foo(list(xx))
Error in foo(list(xx)) : Object "xx" not found
>
If you want the textual form of arguments that are expressions, use
deparse() and a different test (& beware that deparse() can return a
vector of character data).
Although you can do this in R, it is not always advisable practice.
Many people who have written functions with non-standard evaluation
rules like this have come to regret it (one reason is that it makes
these functions difficult to use in programs, another is that the
behavior of the function can depend upon what global variables exists,
another is that when the function works as intended, that's great, but
when it doesn't, users can get quite confused trying to figure out what
it's doing.) The R function help() is an example of a commonly used
function with a non-standard evaluation rule.
-- Tony Plate
Ali - wrote:> This could be really trivial, but I cannot find the right function to
> get the name of an object as a character.
>
> Assume we have a function like:
>
> getName <- function(obj)
>
> Now if we call the function like:
>
> getName(blabla)
>
> and 'blabla' is not a defined object, I want getName to return
"blabla".
> In other word, if
>
> paste("blabla")
>
> returns
>
> "blabla"
>
> I want to define a paste function which returns the same character by:
>
> paste(blabla)
>
> ______________________________________________
> R-help at stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide!
> http://www.R-project.org/posting-guide.html
>