从内部函数覆盖父函数中的变量而不生成外部父函数
我试图用‘outer_func_func’中的值覆盖变量a。我不希望它产生一个变量a外部的函数‘外层_func’。
inner_func <- function(){
a <<- 30
}
outer_func <- function(){
a <- 10
inner_func()
print(a)
}
outer_func()产量是10，但应该是30。
回答 3
Stack Overflow用户
发布于 2018-10-04 13:12:23
这里有3种选择。(1)不改变inner_func，(3)不改变outer_func。
1)复制和重置inner_func环境，在outer_func中复制inner_func并强制当前环境复制到副本中。不对inner_func进行任何更改，只向outer_func添加一行，这两个行都会复制并更改其环境。
outer_func <- function() {
a <- 10
environment(inner_func) <- environment()
inner_func()
print(a)
}
outer_func()
## [1] 302)在outer_func中嵌套inner_func，另一种方法是在outer_func中嵌套inner_func。
outer_func <- function() {
inner_func <- function() {
a <<- 30
}
a <- 10
inner_func()
print(a)
}
outer_func()
## [1] 303)通过arg传递环境，另一种方法是通过参数将a所在的环境传递给inner_func。通过使父框架成为该参数的默认值，我们可以避免对outer_func进行任何更改。
inner_func <- function(envir = parent.frame()) {
envir$a <- 30
}
outer_func <- function() {
a <- 10
inner_func()
print(a)
}
outer_func()
## [1] 30备注
如果定义了a，比如在outer_func中定义了特定的矩阵元素，那么可以将其中的任何一个扩展到设置特定的矩阵元素。
a <- matrix(1:4, 2)在(1)和(2)中修改inner_func以便使用，例如：
a[1,1] <<- 30在(3)中使用，例如，在inner_func中
envir$a[1,1] <- 30Stack Overflow用户
发布于 2018-10-04 12:59:04
您可以将assign与parent.frame()一起使用(parent.frame()是外部函数的环境，在本例中parent.frame(2)是全局环境)：
inner_func <- function(){
assign("a", 30, envir = parent.frame())
}
outer_func <- function(){
a <- 10
inner_func()
print(a)
}
outer_func()但是要小心，因为使用诸如这样的副作用会使代码更加复杂，而且通常是不可取的。
Stack Overflow用户
发布于 2018-10-04 13:19:21
其他的答案集中在如何让outer_func和inner_func按照您期望的那样运行。我会尽量说明他们为何不这样做。
如果您重新定义inner_func以打印它的父环境，您将看到它不是调用者的环境，而是全局环境。
inner_func <- function(){
print(parent.env(environment()))
a <<- 30
}现在调用outer_func，看看它是在那个环境中寻找变量a，而不是在outer_func环境中。
outer_func()
#<environment: R_GlobalEnv>
#[1] 10当您在调用a之后打印outer_func时，它具有预期的值。
a
#[1] 30函数inner_func没有找到a，因此在GlobalEnv中创建了它。
将以上内容与以下内容进行比较。inner_func是用outer_func定义的。现在，赋值<<-找到a并更改其值。
outer_func2 <- function(){
inner_func <- function(){
print(parent.env(environment()))
a <<- 30
}
a <- 10
inner_func()
print(a)
}
rm(a)
outer_func2()
#<environment: 0xdd06e18>
#[1] 30但是由于outer_func2没有赋值，所以a不存在于GlobalEnv中。它只在outer_func中进行了更改，这是它存在的唯一地方。
a
#Error: object 'a' not foundhttps://stackoverflow.com/questions/52647202
复制相似问题
腾讯云开发者
