Wie Name der Variablen in R (Ersatz) erhalten?

Question

Ich stapelte mit dem Versuch, Variable durch wenige Funktionen zu übergeben, und auf die letzte Funktion möchte ich den Namen der ursprünglichen Variablen erhalten. Aber es sieht so aus, als ob die Ersatzfunktion in R nur in einer "lokalen" Umgebung oder nur für eine Ebene höher wäre. Nun, lassen Sie mich erklären es durch Code:

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" 

Nun, es scheint, als ob wir den Namen der variablen Druck, die sich nur auf die fun1 passieren. Die Dokumentation des Ersatzes sagt uns, dass wir env Argument verwenden können, um anzugeben, wo wir hinschauen können. Aber indem .Global oder .BaseNamespaceEnv als Argument zu ersetzen Ich habe noch mehr seltsame Ergebnisse - „some_variable“

Ich glaube, die Antwort in dieser Funktion ist env Argument mit der Verwendung, so könnten Sie bitte erklären, mir wie es funktioniert und wie ich bekomme was ich brauche. Danke im Voraus!

Answer 1

Ich schlage vor, dass Sie erwägen, optionalen Wert für diese Funktionen zu übergeben. Ich sage das, weil es so aussieht, als ob Sie den Namen wirklich als Bezeichnung für etwas im Endergebnis verwenden möchten; Es ist also nicht wirklich die Variable selbst, die so wichtig ist wie ihr Name. Sie könnten

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" 

Auf diese Weise tun, wenn Sie einige ungeradeen Variablennamen am Ende mit und was einen besseren Namen zu einem Ergebnis zu geben, müssen Sie zumindest die Option. Und standardmäßig sollte es tun, was Sie wollen, ohne den Parameter name zu verlangen.

Answer 2

Ein Hack, wahrscheinlich nicht der beste Weg:

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

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

fun2(my_var) 
# "my_var" 

Und Sie get auf das laufen könnte. Aber wie Paul H, schlägt vor, gibt es bessere Möglichkeiten, Variablen zu verfolgen.