r - obtenir le nom variable après eval/Parse ou obtenir

Question

je peux créer une variable de texte, ce cas d'une boucle, où je vais avoir plusieurs x valeurs

fx_1 <-function(varname) 
{ 
    print(paste("fx_1|variable:",deparse(substitute(varname)),"| value:",paste(varname,collapse = "@"))) 
} 

sapply(c("var1","var2"),function(x){ 
    assign(paste0("Example_Module_",x,"_IDS"),c("test","with","getevalparse",x)) 
    fx_1(eval(parse(text=paste0("Example_Module_",x,"_IDS")))) 
    fx_1(get(paste0("Example_Module_",x,"_IDS"))) 
}) 

[1] "fx_1|variable: eval(parse(text = paste0(\"Example_Module_\", x, \"_IDS\"))) | value: test@with@getevalparse@var1" 
[1] "fx_1|variable: get(paste0(\"Example_Module_\", x, \"_IDS\")) | value: test@with@getevalparse@var1" 
[1] "fx_1|variable: eval(parse(text = paste0(\"Example_Module_\", x, \"_IDS\"))) | value: test@with@getevalparse@var2" 
[1] "fx_1|variable: get(paste0(\"Example_Module_\", x, \"_IDS\")) | value: test@with@getevalparse@var2" 

Cependant, dans ma boucle je vais besoin de passer cette variable à une fonction qui utilise deparse (substitut()) pour nommer les fichiers de sortie, similaire à la fonction fx_1 ci-dessus. J'espérais naïvement récupérer quelque chose que le Example_Module_1_IDS

Example_Module_1_IDS=c("test","with","var") 
fx_1(Example_Module_1_IDS) 
[1] "fx_1|variable: Example_Module_1_IDS | value: test@with@var" 

as.symbol ne fonctionne pas non plus, donc je me demandais s'il y a une façon de le faire?

Modifier Ajouté la fonction fx_1 et l'exemple de la boucle

Answer 1

Je pense vraiment que vous dirigez vers le bas un mauvais chemin ici. Il semble que vous stockiez des informations importantes dans le nom de la variable elle-même, ce qui n'est pas vraiment quelque chose que la plupart des langages de programmation aiment. Mieux vaut séparer le nom de la valeur. Mais si vous êtes dans le contrôle de fx_1, vous pouvez le changer pour prendre la valeur et le nom séparément, et même avoir par défaut à la valeur deparse() pour la plupart des cas « normaux ». Par exemple

fx_1 <-function(var, varname=deparse(substitute(var))) { 
    paste("fx_1|variable:",varname,"| value:",paste(var,collapse = "@")) 
} 
fx_1(x) 
# [1] "fx_1|variable: x | value: 1@2@3" 
fx_1(get("x"), "x") 
# [1] "fx_1|variable: x | value: 1@2@3" 

Il n'y a pas de montant get() ou eval() dans un appel de fonction qui changera que la variable « ressemble » à une fonction. Si vous devez manipuler les noms de paramètres, vous devez utiliser une fonction telle que do.call(). Par exemple

sapply(c("var1","var2"),function(x){ 
    varname <- paste0("Example_Module_",x,"_IDS") 
    assign(varname ,c("test","with","getevalparse",x)) 
    do.call("fx_1", list(as.symbol(varname))) 
}) 

qui retourne

                  var1 
"fx_1|variable: Example_Module_var1_IDS | value: test@with@getevalparse@var1" 
                     var2 
"fx_1|variable: Example_Module_var2_IDS | value: test@with@getevalparse@var2" 

Mais encore une fois, plus commun et plus facile de travailler avec une solution consiste nommé listes

Example_Module_IDS <- Map(function(x) c("test","with","getevalparse",x), c("var1","var2")) 
Example_Module_IDS[["var1"]] 
Example_Module_IDS[["var2"]] 
printnv <- function(n, v) paste("fx_1|variable:",n,"| value:",paste(x,collapse = "@")) 
mapply(printnv, names(Example_Module_IDS), Example_Module_IDS) 

Answer 2

Le plan est donc d'avoir une sortie comme:

"fx_1|variable: Example_Module_var1_IDS | value: test@with@getevalparse@var1" 
"fx_1|variable: Example_Module_var1_IDS | value: test@with@getevalparse@var2" 

Avec une fonction de deux variables, il est plus facile. (J'ai également supprimé l'impression):

fx_2 <-function(varname, value) 
{ 
    paste("fx_1|variable:", varname, "| value:", paste(value, collapse = "@")) 
} 

sapply(c("var1","var2"), function(x) { 
    value <- c("test","with","getevalparse",x) 
    varname <- paste0("Example_Module_",x,"_IDS") 
    fx_2(varname, value) 
}) 

Et voici la solution avec un paramètre. Je corrigeais le « get » de sorte qu'il semble dans l'environnement parent:

fx_1 <-function(varname) 
{ 
    paste("fx_1|variable:",varname,"| value:", 
     paste(get(varname, envir = parent.frame()),collapse = "@")) 
} 

sapply(c("var1","var2"), function(x) { 
    assign(paste0("Example_Module_",x,"_IDS"), c("test","with","getevalparse",x)) 
    fx_1(paste0("Example_Module_",x,"_IDS")) 
})