Доступ к переменным, переданным или определенным в родительской функции R

Question

Если переменная не определена в области действия функции, говорят, что R ищет переменную в родительской среде, затем в родительской среде этой среды и т. Д.

Это неКажется, это тот случай, когда переменные передаются в функции:

Foo <- function (y) {
  message('In Foo, x = ', x)
}

Func1 <- function (x = 1) {
  message('In Func1, x = ', x)
  Foo(1)
  lapply(1:2, Foo)
}

Func2 <- function () {
  x <- 2
  message('In Func2, x = ', x)
  Foo(1)
}

Func1(x = 1) # Foo throws error
Func2() # Foo throws error
x <- 99 
Func2() # Now Foo uses value of x from global environment


remove(x)

Как включить функцию Foo для поиска родительской функции и ее родителей по значению переменной вместо использованиязначение в глобальной среде?

Answer 1

Проблема заключается в том, что Foo определено в глобальной среде.

Добавление строки

  environment(Foo) <- environment()

перед вызовом Foo в Func1 и Func2 приводит к желаемому поведению.

Answer 2

Вы хотите искать переменные в стеке вызовов , а не в окружающей среде (динамическая область видимости). Вы можете использовать dynGet в Foo, который ищет объект в вызывающих, то есть sys.frame () функции. dynGet() несколько экспериментально. Используйте с осторожностью.

Foo <- function (y) {
  message('In Foo, x = ', dynGet("x", inherits = TRUE))
}

См. Также: Функциональные среды