Come ottenere il nome della variabile in R (sostituto)?

Question

I impilato con il tentativo di passare la variabile attraverso poche funzioni, e sulla funzione finale voglio ottenere il nome della variabile originale. Ma sembra che la funzione sostitutiva in R guardasse solo in ambiente "locale", o solo per un livello superiore. Beh, mi permetta di spiegare che per codice:

fun1 <- function (some_variable) {deparse(substitute(some_variable)} 
fun2 <- function (var_pass) { fun1 (var_pass) } 
my_var <- c(1,2) # I want to get 'my_var' in the end 
fun2 (my_var) # > "var_pass" 

Beh, sembra che abbiamo la stampa del nome della variabile che passa solo al fun1. La documentazione del sostituto ci dice che possiamo usare l'argomento env per specificare dove possiamo guardare. Ma passando Globale o .BaseNamespaceEnv come argomento per sostituire ho avuto ancora più strani risultati - "some_variable"

Credo che la risposta è in questa funzione con l'utilizzo di argomento env, così, la prego di spiegare come funziona e come posso ottenere ciò di cui ho bisogno. Grazie in anticipo!

Answer 1

Ti suggerisco di considerare di passare il valore del nome opzionale a queste funzioni. Dico questo perché sembra che tu voglia davvero usare il nome come etichetta per qualcosa nel risultato finale; quindi non è proprio la variabile stessa che conta tanto quanto il suo nome. Si potrebbe fare

fun1 <- function (some_variable, name=deparse(substitute(some_variable))) { 
    name 
} 
fun2 <- function (var_pass, name=deparse(substitute(var_pass))) { 
    fun1 (var_pass, name) 
} 
my_var <- c(1,2) 

fun2(my_var) 
# [1] "my_var" 

fun1(my_var) 
# [1] "my_var" 

questo modo, se si finisce per avere un po 'strano nome di variabile e cosa dare un nome migliore per un risultato, almeno ha la possibilità. E per impostazione predefinita dovrebbe fare quello che vuoi senza dover richiedere il parametro name.

Answer 2

Un hack, probabilmente non è il modo migliore:

fun2 <- function (var_pass) { fun1 (deparse(substitute(var_pass))) } 

fun1 <- function (some_variable) {(some_variable))} 

fun2(my_var) 
# "my_var" 

E si potrebbe correre get su questo. Ma come suggerisce Paul H, ci sono modi migliori per tenere traccia delle variabili.