Przesyła argument funkcji jako ciąg znaków?

Question

Super szybkie pytanie ...

W jaki sposób bierzesz określoną funkcję (zdefiniowaną przez użytkownika) i rzutujesz ją jako ciąg znaków?

Jeśli na prosty przykład

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

Chcę po prostu wrócić X za nazwę obiektu. Więc

foo(testing123) 

powraca "testing123" (i testing123 może być tylko jakiś przypadkowy wektor numeryczny)

Przepraszam jeśli to pytanie zostało zadane wcześniej - szukał, ale nie mógł go znaleźć! Dzięki!!

Answer 1

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

Answer 2

Ups, najwyraźniej nie szukanie wystarczająco mocno ...

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

Dobrze, że łatwo ...

Answer 3

Meta-odpowiedź: jeśli wiesz R robi coś i chcesz aby to zrobić, sprawdź źródło. Na przykład, mogłeś zauważyć, że plot(foo) trzyma "foo" w ylab, więc działka może to zrobić. W jaki sposób? Zacznij od spojrzenia na kod:

> 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") 
} 

I jest pewna magia deparse(substitute(x)).