¿Argumentar argumento de función como una cadena de caracteres?

Question

Pregunta súper rápida ...

¿Cómo se toma el argumento de una función en particular (definido por el usuario) y se emite como una cadena de caracteres?

Si por un simple ejemplo,

foo <- function(x) { ... } 

Quiero devuelva el nombre del objeto x. Así,

foo(testing123) 

vuelve "testing123" (y testing123 solo podría ser algún vector numérico aleatorio)

disculpas si esta pregunta se ha hecho antes - buscado, pero no pudieron encontrar! ¡¡Gracias!!

Answer 1

foo <- function(x) deparse(substitute(x)) 

Answer 2

¡Vaya, al parecer, yo no busca lo suficiente ...

foo <- function(x) {return(as.character(substitute(x)))} 

Bueno, eso es fácil ...

Answer 3

Meta-respuesta: si sabe R hace algo y desea para hacerlo, verifica la fuente. Por ejemplo, puede haber detectado que plot(foo) pega 'foo' en el ylab, por lo que la trama puede hacerlo. ¿Cómo? Comience mirando el código:

> plot 
function (x, y, ...) 
{ 
    if (is.function(x) && is.null(attr(x, "class"))) { 
     if (missing(y)) 
      y <- NULL 
     hasylab <- function(...) !all(is.na(pmatch(names(list(...)), 
      "ylab"))) 
     if (hasylab(...)) 
      plot.function(x, y, ...) 
     else plot.function(x, y, ylab = paste(deparse(substitute(x)), 
      "(x)"), ...) 
    } 
    else UseMethod("plot") 
} 

Y hay algo de magia deparse(substitute(x)).