Использование функций и сред

Самое простое решение - использовать среду при обращении к объекту:

y <- new.env()
y$x <- 1
f <- function(env,z) {
    env$x+z
}
f(y,z=1)

Вам также нужно будет назначить z своей среде.

y <- new.env()
with(y, x <- 1)
f <- function(env,z) {
    assign("z", z, envir=env)
    with(env, x+z)
}
f(y,z=1)

Еще один вариант - attach вашу среду, чтобы переменные теперь можно было использовать напрямую.

y <- new.env()
with(y, x <- 1)
f <- function(env,z) {
    attach(env)
    y <- x + z
    detach(env)
    y
}
f(y,z=1)

Это последнее решение является мощным, потому что оно означает, что вы можете использовать любой объект из любой присоединенной среды в своей новой среде, но это также означает, что вам нужно быть очень осторожным с тем, что было назначено глобально.

Изменить:

Это интересно, и я не совсем понимаю поведение (т.е. почему z не входит в область действия with вызова). Это как-то связано с созданием среды изначально, которая заставляет ее выходить за рамки функции, потому что эта версия работает:

f <- function(z) {
    y <- new.env()
    with(y, x <- 1)
    with(y, x+z)
}
f(y,z=1)

Вам нужно сделать только одно изменение, чтобы ваш пример заработал - переопределите вашу функцию, чтобы использовать substitute(), чтобы «исправить» желаемые значения в рамках f():

f <- function(env,z) {
    eval(substitute(x+z,list(z=z)), env)
}

Это может быстро стать непонятным, особенно если вы даже можете включить операторы присваивания в substitute() (например, заменить x+z на y <- x+z, но это не совсем актуально здесь), но этот выбор может быть сделан разработчиком ...

Кроме того, вы можете заменить list(z=z) в приведенном выше выражении подстановки на environment() (например, substitute(x+z,environment())), если у вас нет конфликтующих имен переменных между теми, которые переданы в f(), и теми, которые находятся в вашем 'env', но вы можете не захотеть принимать это слишком далеко.

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

1) измените окружающую среду env (но верните исходное значение перед выходом из функции):

f <- function(env,z) {
  e <- environment(env)
  environment(env) <- environment()
  output <- with(env,x+z)
  environment(env) <- e
  output
}

2) Принудительное вычисление 'z' в текущем окружении функции (с использованием environment()) вместо того, чтобы позволить ему оставаться свободной переменной после вычисления выражения x+z в 'env'.

f <- function(env,z) {
  with(environment(),with(env,x+z))
}

В зависимости от вашего желаемого порядка разрешения, в случае конфликтующих ассоциаций символ-значение - например, если у вас есть 'x', определенный как в вашей функциональной среде, так и в среде, которую вы создали, 'y' (какое значение 'x' вы хотите предположить?) - вместо этого вы можете определить тело функции как with(env,with(environment(),x+z)).

 y <- new.env()
 with(y, x <- 1)
 f <- function(env,z) {
    with(env, x+z)
 }
 f(y,z=1)

помните о круглых скобках :) Будет работать следующее:

with(env, x)+z