Lancer l'argument de la fonction en tant que chaîne de caractères?

Super rapide question...

Comment prenez-vous un peu particulier de la fonction (définie par l'utilisateur) argument, et de le jeter comme une chaîne de caractères?

Si, pour un exemple simple,

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

Je veux tout simplement le retour des x, nom de l'objet. Donc,

foo(testing123)

retourne "testing123" (et testing123 pourrait être simplement une partie aléatoire numérique vecteur)

Excuses si cette question a été posée avant--cherché, mais je ne pouvais pas le trouver! Merci!!

source d'informationauteur Ray

  1. 31
    foo <- function(x) deparse(substitute(x))
  2. 17

    Méta-réponse: si vous avez R fait quelque chose et que vous voulez le faire, vérifiez la source. Par exemple, vous avez peut-être repéré que plot(foo) bâtons " foo " dans le ylabde sorte que la parcelle peut le faire. Comment? Commencez par regarder le code:

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

    Et il y a quelques deparse(substitute(x)) de la magie.

  3. 2

    Oups, apparemment je n'ai pas de recherche assez dur...

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

    Eh bien, c'est facile...