Pobieranie nazw obiektów z poziomu funkcji

Question

Tytuł nie jest opisowy, ponieważ problem jest dłuższy niż uzasadniony tytuł, który mógłbym wyświetlić.

Chcę mieć funkcję, która pobiera nazwy obiektów z innych funkcji, które mogą być używane jako argumenty w innej funkcji. Oto Barebone próba:

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

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

FUN(mtcars) 

tu za Kupię FUN powrócić ciąg znaków „mtcars” ale zwraca „foo”. W jaki sposób można utworzyć funkcję przechwytywania, która to robi (chcę to zrobić, ponieważ zamierzam użyć tego jako domyślnego dla pliku txt/csv itp. Jest to ustawienie wygody:

Oto niektóre nieudane próby (ale chcę mieć ogólną funkcję grab):

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) 

Prawdziwe życie-owski przykład:

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

Answer 1

można spróbować sys.call aby uzyskać dostęp do połączenia nadrzędnego:

## "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

Co powiesz na to?

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

FUN(mtcars) 
# [1] "mtcars"