In R, wie erhält man den Namen eines Objekts, nachdem es an eine Funktion gesendet wurde?

Question

Ich suche die Rückseite von get().

Bei einem Objektnamen möchte ich die Zeichenkette, die das Objekt darstellt, direkt aus dem Objekt extrahieren lassen.

Trivial Beispiel mit foo ist der Platzhalter für die Funktion, die ich suche. Würde

z <- data.frame(x=1:10, y=1:10) 

test <- function(a){ 
    mean.x <- mean(a$x) 
    print(foo(a)) 
    return(mean.x)} 

test(z) 

drucken:

"z" 

Meine Arbeit um, das härter ist in meinem aktuellen Problem zu implementieren ist:

test <- function(a="z"){ 
    mean.x <- mean(get(a)$x) 
    print(a) 
    return(mean.x)} 

test("z") 

Answer 1

Der alte Deparse-Ersatz Trick:

a<-data.frame(x=1:10,y=1:10) 
test<-function(z){ 
    mean.x<-mean(z$x) 
    nm <-deparse(substitute(z)) 
    print(nm) 
    return(mean.x)} 

test(a) 
#[1] "a" ... this is the side-effect of the print() call 
#   ... you could have done something useful with that character value 
#[1] 5.5 ... this is the result of the function call 

Edit: Ran es mit dem neuen tes t-Objekt

Hinweis: Dies wird nicht in einer lokalen Funktion erfolgreich sein, wenn eine Reihe von Listenelementen an lapply weitergegeben Sie würden (und es nicht auch, wenn ein Objekt aus einer Liste zu einem for -loop gegeben geben wird.) in der Lage sein, das .Names-Attribut und die Reihenfolge der Verarbeitung aus dem Strukturergebnis zu extrahieren, wenn es sich um einen benannten Vektor handelt, der gerade verarbeitet wird.

> lapply(list(a=4,b=5), function(x) {nm <- deparse(substitute(x)); strsplit(nm, '\\[')}) 
$a 
$a[[1]] 
[1] "X" ""  "1L]]" 


$b 
$b[[1]] 
[1] "X" ""  "2L]]" 

> lapply(c(a=4,b=5), function(x) {nm <- deparse(substitute(x)); strsplit(nm, '\\[')}) 
$a 
$a[[1]] 
[1] "structure(c(4, 5), .Names = c(\"a\", \"b\"))" ""            
[3] "1L]]"           


$b 
$b[[1]] 
[1] "structure(c(4, 5), .Names = c(\"a\", \"b\"))" ""            
[3] "2L]]" 

Answer 2

Beachten Sie, dass für Druckmethoden das Verhalten unterschiedlich sein kann.

Andere Kommentare Ich habe in Foren gesehen, dass das letzte Verhalten unvermeidlich ist. Das ist bedauerlich, wenn Sie Druckmethoden für Pakete schreiben.

Answer 3

deparse(quote(var)) 

Mein intuitives Verständnis , in dem das Zitat und die Deparse Funktion var oder Ausdruck aus der Auswertung einzufrieren, die die Umkehrung der Parsing-Funktion macht das frorene Symbol zurück zu String