r - 在函数定义期间评估并保存参数变量值？

Question

考虑这个函数plus_x:

y <- 1

plus_x <- function(input, x = y){
  return(input + x)
}

此处，x 的 y 默认值在函数调用期间计算。如果我稍后更改 y，我也会更改函数的行为。

y <- 1

plus_x <- function(input, x = y){
  return(input + x)
}

y <-10

plus_x(1)
# > 11

有没有办法将 y 的值“巩固”到函数定义期间的状态？

目标:

y <- 1

plus_x <- function(input, x = y){
  # y is now always 1
  return(input + x)
}

y <-10

plus_x(1)
# > 2

Answer 1

1) local 用在本地保存 y 的 local 包围该函数:

y <- 1

plus_x <- local({
  y <- y
  function(input, x = y) input + x
})

y <-10
plus_x(1)
## [1] 2

2) 生成器 另一种方法是创建生成器函数。这样做的优点是可以轻松定义具有不同 y 值的多个不同函数。请查看 demo("scoping", package = "base") 了解使用范围的更多示例。

gen <- function(y) {
  force(y)
  function(input, x = y) input + x
}

y <- 1
plus_1 <- gen(y)
y <-10
plus_1(1)
## [1] 2

y <- 2
plus_2 <- gen(y)
y <- 10
plus_2(1)
## [1] 3