Environnement chaînage dans R

Question

Dans mon développement R j'ai besoin d'envelopper les primitives de fonction dans proto objets de sorte qu'un certain nombre d'arguments peuvent être automatiquement transmis aux fonctions lorsque la méthode $perform() de l'objet est appelée. L'appel de fonction se passe en interne via do.call(). Tout va bien, sauf lorsque la fonction tente d'accéder à des variables à partir de la fermeture dans laquelle elle est définie. Dans ce cas, la fonction ne peut pas résoudre les noms.

Voici l'exemple le plus petit que j'ai trouvé qui reproduit le comportement:

library(proto) 

make_command <- function(operation) { 
    proto(
    func = operation, 
    perform = function(., ...) { 
     func <- with(., func) # unbinds proto method 
     do.call(func, list(), envir=environment(operation)) 
    } 
    ) 
} 

test_case <- function() { 
    result <- 100 
    make_command(function() result)$perform() 
} 

# Will generate error: 
# Error in function() : object 'result' not found 
test_case() 

J'ai un test testthat reproductible qui génère aussi beaucoup de sortie de diagnostic. La sortie de diagnostic m'a bloqué. En cherchant la chaîne d'environnement parent, mon code de diagnostic, qui vit dans la fonction, trouve et imprime la même variable que la fonction ne parvient pas à trouver. See this gist..

Comment l'environnement de do.call peut être configuré correctement?

Answer 1

Ce fut la réponse finale après une discussion en ligne avec l'affiche:

make_command <- function(operation) { 
proto(perform = function(.) operation()) 
} 

Answer 2

Je pense que la question est ici plus claire et plus facile à explorer si vous:

• Remplacer la fonction anonyme au sein make_command() avec un nom.

• Faites cette fonction ouvrir un browser() (au lieu d'essayer d'obtenir result). De cette façon, vous pouvez regarder autour de vous pour voir où vous êtes et ce qui se passe.

Essayez ceci, qui devrait préciser la cause de votre problème:

test_case <- function() { 
    result <- 100 
    myFun <- function() browser() 
    make_command(myFun)$perform() 
} 
test_case() 
## Then from within the browser: 
# 
parent.env(environment()) 
# <environment: 0x0d8de854> 
# attr(,"class") 
# [1] "proto"  "environment" 
get("result", parent.env(environment())) 
# Error in get("result", parent.env(environment())) : 
# object 'result' not found 
# 
parent.frame() 
# <environment: 0x0d8ddfc0> 
get("result", parent.frame()) ## (This works, so points towards a solution.) 
# [1] 100 

est ici le problème. Bien que vous pensiez évaluer myFun(), dont l'environnement est le cadre d'évaluation de test_case(), votre appel à do.call(func, ...) évalue vraiment func(), dont l'environnement est l'environnement proto dans lequel il a été défini. Après avoir recherché et ne pas trouver result dans son propre cadre, l'appel à func() suit les règles de portée lexicale, et regarde ensuite dans l'environnement proto. Ni lui, ni son environnement parent contient un objet nommé result, résultant dans le message d'erreur que vous avez reçu.

Si cela n'a pas de sens immédiatement, vous pouvez continuer à fouiller dans le navigateur. Voici quelques appels supplémentaires pourraient vous être utiles:

environment(get("myFun", parent.frame())) 
ls(environment(get("myFun", parent.frame()))) 
environment(get("func", parent.env(environment()))) 
ls(environment(get("func", parent.env(environment()))))