blocks|key|493908|text|您可以将assign与parent.frame()一起使用(parent.frame()是外部函数的环境，在本例中parent.frame(2)是全局环境)：|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|493909|inner_func+<-+function(){
++assign("a",+30,+envir+=+parent.frame())
}

outer_func+<-+function(){
++a+<-+10
++inner_func()
++print(a)
}

outer_func()|code-block|syntax|javascript|493910|但是要小心，因为使用诸如这样的副作用会使代码更加复杂，而且通常是不可取的。|493911|entityMap^0|4|6|B|E|U|E|1L|F|0|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@$9|P|A|Q|B|C]|$9|R|A|S|B|C]|$9|T|A|U|B|C]|$9|V|A|W|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|X|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|Y|8|@]|D|@]|E|$]]|$1|M|3|-4|5|6|7|Z|8|@]|D|@]|E|$]]]|N|$]]

You can use <code>assign</code> with the <code>parent.frame()</code> (<code>parent.frame()</code> s the environment of the outer function, <code>parent.frame(2)</code> would be global environment in this case):

<pre><code>inner_func &lt;- function(){
 assign("a", 30, envir = parent.frame())
}

outer_func &lt;- function(){
 a &lt;- 10
 inner_func()
 print(a)
}

outer_func()
</code></pre>

However be careful, because using side effects like makes the code much more complicated, and usually is inadvisable.

blocks|key|493966|text|这里有3种选择。(1)不改变inner_func，(3)不改变outer_func。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|493967|1)复制和重置inner_func环境，在outer_func中复制inner_func并强制当前环境复制到副本中。不对inner_func进行任何更改，只向outer_func添加一行，这两个行都会复制并更改其环境。|BOLD|493968|outer_func+<-+function()+{
++a+<-+10
++environment(inner_func)+<-+environment()+
++inner_func()
++print(a)
}

outer_func()
##+[1]+30|code-block|syntax|javascript|493969|2)在outer_func中嵌套inner_func，另一种方法是在outer_func中嵌套inner_func。|493970|outer_func+<-+function()+{

++inner_func+<-+function()+{
++++a+<<-+30
++}

++a+<-+10
++inner_func()
++print(a)
}

outer_func()
##+[1]+30|493971|3)通过arg传递环境，另一种方法是通过参数将a所在的环境传递给inner_func。通过使父框架成为该参数的默认值，我们可以避免对outer_func进行任何更改。|493972|inner_func+<-+function(envir+=+parent.frame())+{
++envir$a+<-+30
}

outer_func+<-+function()+{
++a+<-+10
++inner_func()
++print(a)
}

outer_func()
##+[1]+30|493973|备注|493974|如果定义了a，比如在outer_func中定义了特定的矩阵元素，那么可以将其中的任何一个扩展到设置特定的矩阵元素。|493975|a+<-+matrix(1:4,+2)|493976|在(1)和(2)中修改inner_func以便使用，例如：|493977|a[1,1]+<<-+30|493978|在(3)中使用，例如，在inner_func中|493979|envir$a[1,1]+<-+30|493980|entityMap^0|E|A|V|A|0|0|H|L|A|Y|A|1O|A|27|A|0|0|0|D|G|A|Y|A|1B|A|0|0|0|7|N|1|W|A|1U|A|0|0|0|5|1|A|A|0|0|B|A|0|0|C|A|0|0^^$0|@$1|2|3|4|5|6|7|1B|8|@$9|1C|A|1D|B|C]|$9|1E|A|1F|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|1G|8|@$9|1H|A|1I|B|H]|$9|1J|A|1K|B|C]|$9|1L|A|1M|B|C]|$9|1N|A|1O|B|C]|$9|1P|A|1Q|B|C]]|D|@]|E|$]]|$1|I|3|J|5|K|7|1R|8|@]|D|@]|E|$L|M]]|$1|N|3|O|5|6|7|1S|8|@$9|1T|A|1U|B|H]|$9|1V|A|1W|B|C]|$9|1X|A|1Y|B|C]|$9|1Z|A|20|B|C]]|D|@]|E|$]]|$1|P|3|Q|5|K|7|21|8|@]|D|@]|E|$L|M]]|$1|R|3|S|5|6|7|22|8|@$9|23|A|24|B|H]|$9|25|A|26|B|C]|$9|27|A|28|B|C]|$9|29|A|2A|B|C]]|D|@]|E|$]]|$1|T|3|U|5|K|7|2B|8|@]|D|@]|E|$L|M]]|$1|V|3|W|5|6|7|2C|8|@]|D|@]|E|$]]|$1|X|3|Y|5|6|7|2D|8|@$9|2E|A|2F|B|C]|$9|2G|A|2H|B|C]]|D|@]|E|$]]|$1|Z|3|10|5|K|7|2I|8|@]|D|@]|E|$L|M]]|$1|11|3|12|5|6|7|2J|8|@$9|2K|A|2L|B|C]]|D|@]|E|$]]|$1|13|3|14|5|K|7|2M|8|@]|D|@]|E|$L|M]]|$1|15|3|16|5|6|7|2N|8|@$9|2O|A|2P|B|C]]|D|@]|E|$]]|$1|17|3|18|5|K|7|2Q|8|@]|D|@]|E|$L|M]]|$1|19|3|-4|5|6|7|2R|8|@]|D|@]|E|$]]]|1A|$]]

Here are 3 alternatives. (1) makes no changes to <code>inner_func</code> and (3) makes no changes to <code>outer_func</code>.

1) copy and reset environment of inner_func Make a copy of <code>inner_func</code> within <code>outer_func</code> and coerce the current environment to the copy. No changes are made to <code>inner_func</code> and only one line is added to <code>outer_func</code> and that both makes the copy and changes its environment.

<pre><code>outer_func &lt;- function() {
 a &lt;- 10
 environment(inner_func) &lt;- environment() 
 inner_func()
 print(a)
}

outer_func()
## [1] 30
</code></pre>

2) nest inner_func in outer_func Another way to do this is to nest <code>inner_func</code> within <code>outer_func</code>. 

<pre><code>outer_func &lt;- function() {

 inner_func &lt;- function() {
 a &lt;&lt;- 30
 }

 a &lt;- 10
 inner_func()
 print(a)
}

outer_func()
## [1] 30
</code></pre>

3) pass environment via arg Another way is to pass the environment where <code>a</code> is located to <code>inner_func</code> via an argument. By making the parent frame the default value of that argument we can avoid having to make any changes to <code>outer_func</code>.

<pre><code>inner_func &lt;- function(envir = parent.frame()) {
 envir$a &lt;- 30
}

outer_func &lt;- function() {
 a &lt;- 10
 inner_func()
 print(a)
}

outer_func()
## [1] 30
</code></pre>

<h2>Note</h2>

Any of these can be extended to set particular matrix elements if <code>a</code> is defined, say, as this in <code>outer_func</code>.

<pre><code>a &lt;- matrix(1:4, 2)
</code></pre>

In (1) and (2) modify <code>inner_func</code> to use, for example:

<pre><code>a[1,1] &lt;&lt;- 30
</code></pre>

and in (3) use, for example, this in <code>inner_func</code>:

<pre><code>envir$a[1,1] &lt;- 30
</code></pre>

blocks|key|2421784|text|其他的答案集中在如何让outer_func和inner_func按照您期望的那样运行。我会尽量说明他们为何不这样做。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|2421785|如果您重新定义inner_func以打印它的父环境，您将看到它不是调用者的环境，而是全局环境。|2421786|inner_func+<-+function(){
++print(parent.env(environment()))
++a+<<-+30
}|code-block|syntax|javascript|2421787|现在调用outer_func，看看它是在那个环境中寻找变量a，而不是在outer_func环境中。|2421788|outer_func()
#<environment:+R_GlobalEnv>
#[1]+10|2421789|当您在调用a之后打印outer_func时，它具有预期的值。|2421790|a
#[1]+30|2421791|函数inner_func没有找到a，因此在GlobalEnv中创建了它。|2421792|将以上内容与以下内容进行比较。inner_func是用outer_func定义的。现在，赋值<<-找到a并更改其值。|2421793|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|2421794|但是由于outer_func2没有赋值，所以a不存在于GlobalEnv中。它只在outer_func中进行了更改，这是它存在的唯一地方。|2421795|a
#Error:+object+'a'+not+found|2421796|entityMap^0|B|A|M|A|0|7|A|0|0|4|A|T|1|Z|A|0|0|5|1|A|A|0|0|2|A|G|1|L|9|0|F|A|R|A|1A|3|1F|1|0|0|4|B|M|1|R|9|15|A|0|0^^$0|@$1|2|3|4|5|6|7|16|8|@$9|17|A|18|B|C]|$9|19|A|1A|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|1B|8|@$9|1C|A|1D|B|C]]|D|@]|E|$]]|$1|H|3|I|5|J|7|1E|8|@]|D|@]|E|$K|L]]|$1|M|3|N|5|6|7|1F|8|@$9|1G|A|1H|B|C]|$9|1I|A|1J|B|C]|$9|1K|A|1L|B|C]]|D|@]|E|$]]|$1|O|3|P|5|J|7|1M|8|@]|D|@]|E|$K|L]]|$1|Q|3|R|5|6|7|1N|8|@$9|1O|A|1P|B|C]|$9|1Q|A|1R|B|C]]|D|@]|E|$]]|$1|S|3|T|5|J|7|1S|8|@]|D|@]|E|$K|L]]|$1|U|3|V|5|6|7|1T|8|@$9|1U|A|1V|B|C]|$9|1W|A|1X|B|C]|$9|1Y|A|1Z|B|C]]|D|@]|E|$]]|$1|W|3|X|5|6|7|20|8|@$9|21|A|22|B|C]|$9|23|A|24|B|C]|$9|25|A|26|B|C]|$9|27|A|28|B|C]]|D|@]|E|$]]|$1|Y|3|Z|5|J|7|29|8|@]|D|@]|E|$K|L]]|$1|10|3|11|5|6|7|2A|8|@$9|2B|A|2C|B|C]|$9|2D|A|2E|B|C]|$9|2F|A|2G|B|C]|$9|2H|A|2I|B|C]]|D|@]|E|$]]|$1|12|3|13|5|J|7|2J|8|@]|D|@]|E|$K|L]]|$1|14|3|-4|5|6|7|2K|8|@]|D|@]|E|$]]]|15|$]]

The other answers focus on how to get <code>outer_func</code> and <code>inner_func</code> to behave like you expect them to behave. I will try to show why they do not do so. 

If you redefine <code>inner_func</code> to print its parent environment you will see that it is not the environment of the caller but the global environment.

<pre><code>inner_func &lt;- function(){
 print(parent.env(environment()))
 a &lt;&lt;- 30
}
</code></pre>

Now call <code>outer_func</code> and see that it is trying to find variable <code>a</code> in that environment, not in the environment of <code>outer_func</code>.

<pre><code>outer_func()
#&lt;environment: R_GlobalEnv&gt;
#[1] 10
</code></pre>

And when you print <code>a</code>, after calling <code>outer_func</code>, it has the expected value.

<pre><code>a
#[1] 30
</code></pre>

Function <code>inner_func</code> did not find <code>a</code> therefore created it in the <code>GlobalEnv</code>.

Compare the above with the following. A <code>inner_func</code> is defined in <code>outer_func</code>. Now the assignment <code>&lt;&lt;-</code> finds <code>a</code> and changes its value.

<pre><code>outer_func2 &lt;- function(){
 inner_func &lt;- function(){
 print(parent.env(environment()))
 a &lt;&lt;- 30
 }

 a &lt;- 10
 inner_func()
 print(a)
}

rm(a)
outer_func2()
#&lt;environment: 0xdd06e18&gt;
#[1] 30
</code></pre>

But since <code>outer_func2</code> does not assign its value, <code>a</code> does not exist in the <code>GlobalEnv</code>. It was changed in <code>outer_func</code> only, the only place where it exists.

<pre><code>a
#Error: object 'a' not found
</code></pre>

I am trying to overwrite variable a in 'outer_func' with a value from 'inner_func'. I do not want it to produce a variable a outside of the function 'outer_func'.

<pre><code>inner_func &lt;- function(){
 a &lt;&lt;- 30
}

outer_func &lt;- function(){
 a &lt;- 10
 inner_func()
 print(a)
}

outer_func()
</code></pre>

The output is 10, but it should be 30.

overwrite variable in parent function from inner function without making variable outside parent function

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

我试图用‘outer_func_func’中的值覆盖变量a。我不希望它产生一个变量a外部的函数‘外层_func’。inner_func <- function(){ a <<- 30}outer_func <- function(){ a <- 10 inner_func() print(a)}outer_fu...

问从内部函数覆盖父函数中的变量而不生成外部父函数
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问从内部函数覆盖父函数中的变量而不生成外部父函数EN