Смещение окружения в R

Question

В моей разработке R мне нужно обернуть функциональные примитивы в объектах proto, чтобы несколько аргументов могли автоматически передаваться функциям при вызове метода объекта $perform(). Внутренний вызов функции происходит через do.call(). Все хорошо, за исключением случаев, когда функция пытается получить доступ к переменным из замыкания, в котором оно определено. В этом случае функция не может разрешить имена.

Вот маленький пример, который я обнаружил, что воспроизводит поведение:

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() 

У меня есть воспроизводимый testthat тест, который также выводит много диагностической продукции. Диагностический вывод меня озадачил. Изучая цепочку родительских окружений, мой диагностический код, который живет внутри функции, находит и печатает ту же самую переменную, которую функция не находит. See this gist..

Как можно настроить среду для do.call?

Answer 1

Это был окончательный ответ после обсуждения в автономном режиме с плакатом:

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

Answer 2

Я думаю, что проблема здесь яснее и проще исследовать, если вы:

• Заменить анонимную функцию в make_command() с именем одного.

• Сделайте эту функцию открытой browser() (вместо того, чтобы пытаться получить result). Таким образом, вы можете посмотреть вокруг, где вы находитесь и что происходит.

Попробуйте это, что следует уточнить причину вашей проблемы:

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 

Вот проблема. Хотя вы считаете, что оцениваете myFun(), чья среда представляет собой оценочный фрейм test_case(), ваш звонок в do.call(func, ...) действительно оценивает func(), окружением которого является среда proto, в которой она была определена. После поиска и отсутствия result в своем собственном фрейме, вызов func() следует правилам лексического охвата, а затем выглядит в среде proto. Ни он, ни его родительская среда содержит объект с именем result, в результате чего вы получили сообщение об ошибке.

Если это не имеет смысла, вы можете продолжать искать в браузере. Вот несколько дополнительных вызовов может оказаться полезной:

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