不使用<<-赋值的递归函数？

Question

有一个向量 x，我需要在一个内部函数中递归地改变它。在这里，我使用 <<- 来实现这个全局赋值运算符:

 outer <- function(){
  x <- rep(1,5)
  inner <- function(i){
    if(i> length(x))return(x)
    x[i] <<- 2  ## don't work with <-
    inner(i+1)
  }
  inner(1)
}
outer()
[1] 2 2 2 2 2

我的问题是是否有另一个/更好的实现可以避免使用 <<- ?请注意，我不想替换 recursion ，而只是想问问是否有更好/更安全的设计？

Answer 1

通行证x作为参数？

outer <- function(){
  x <- rep(1,5)
  inner <- function(i,x){
    if(i> length(x))return(x)
    x[i] <- 2  
    inner(i+1,x)
  }
  inner(1,x)
}
outer()
#[1] 2 2 2 2 2