Рекурсивная функция без использования << - присвоение?

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 

Мой вопрос, если есть другой/лучше реализацию, избежать использования <<-? Обратите внимание, что я не хочу заменять рекурсию, но просто спросить, есть ли лучший/более безопасный дизайн?

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