Objektnamen aus einer Funktion herausholen

Question

Der Titel ist nicht wirklich beschreibend, da das Problem länger ist als ein vernünftiger Titel, den ich mir vorstellen könnte.

Ich möchte eine Funktion haben, die Objektnamen aus anderen Funktionen ergreift, die als Argumente in einer anderen Funktion verwendet werden können. Hier ist ein Barebone-Versuch:

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

FUN <- function(foo, bar = grab(foo)) { 
    bar 
} 

FUN(mtcars) 

hier Ichs Mangel FUN die Zeichenfolge „mtcars“ zurückzukehren, aber es gibt „foo“. Wie könnte eine Grab-Funktion machen, die dies tut (Ich möchte dies tun, weil ich dies als Standard für eine TXT/CSV-Datei verwenden werde. Es ist eine Komforteinstellung.

Hier sind einige erfolglose Versuche (aber ich möchte eine generische Greiffunktion haben):

FUN2 <- function(foo, bar = as.character(substitute(bar))) { 
    bar 
} 

FUN2(mtcars) 

#================== 

FUN3 <- function(foo, bar) { 
    if(missing(bar)) bar <- foo 
    as.character(substitute(bar)) 
} 

FUN3(mtcars) 

Real life-ish Beispiel:

real_example <- function(obj, file = grab(obj)) { 
    write.csv(obj, file = sprintf("%s.csv", file)) 
} 

Answer 1

Sie sys.call könnten versuchen, Zugriff auf den Parent Anruf zu erhalten:

## "which" is the number of the argument of interest 
grab <- function(which) { 
    ## which + 1, because [1] == name of function/call 
    ## and arguments are 2:n 
    as.character(sys.call(-1L)[which+1L]) 
} 

FUN <- function(foo, bar = grab(1L)) { 
    bar 
} 

FUN(mtcars) 
# "mtcars" 

Answer 2

Wie wäre es damit?

grab <- function(x) as.character(x[["foo"]]) 
FUN <- function(foo, bar=grab(match.call())) { bar } 

FUN(mtcars) 
# [1] "mtcars"