4

我正在用 R 编写一个递归函数，我希望它修改一个全局变量，以便我知道调用了多少个函数实例。我不明白为什么以下不起作用：

i <- 1

testfun <- function( depth= 0 ) {

  i <- i + 1
  cat( sprintf( "i= %d, depth= %d\n", i, depth ) )
  if( depth < 10 ) testfun( depth + 1 )
}

这是输出：

i= 2, depth= 0
i= 2, depth= 1
i= 2, depth= 2
i= 2, depth= 3
i= 2, depth= 4
i= 2, depth= 5
i= 2, depth= 6
i= 2, depth= 7
i= 2, depth= 8
i= 2, depth= 9
i= 2, depth= 10

这是预期的输出：

i=2, depth= 0
i=3, depth= 1
i=4, depth= 2
i=5, depth= 3
i=6, depth= 4
i=7, depth= 5
i=8, depth= 6
i=9, depth= 7
i=10, depth= 8
i=11, depth= 9
i=12, depth= 10
4

3 回答 3

8

您可以使用该local函数做同样的事情，但不修改全局环境：

testfun <- local({
  i <- 1
  function( depth= 0 ) {
    i <<- i + 1
    cat( sprintf( "i= %d, depth= %d\n", i, depth ) )
    if( depth < 10 ) testfun( depth + 1 )
  }
})

这非常巧妙地将该testfun功能包装在一个本地环境中i。这种方法在提交的 CRAN 包中应该是可以接受的，而修改全局环境则不行。

于 2013-05-10T11:46:28.550 回答
6

好吧，所以我不是很聪明。这是答案：

i <<- i + 1
于 2013-05-10T10:58:30.637 回答
0

将“i”作为函数的参数。

于 2013-05-10T11:00:42.380 回答