환경을 사용하여 객체를 중첩 된 함수에 전달

Question

하나의 함수에서 다른 중첩 된 함수 할당 환경으로 객체를 전달하고 싶습니다. 다음은 작동하지 않는 코드 예제입니다. 함수에 환경을 할당하면 어떻게 될까요?

sumi <- function(x,y) { 
    my.env <- new.env() 

    my.env$rumi <- function() { 
     my.env$k <- x[1] 
     my.env$f <- y[1] 
    } 
    k <- get("k", my.env) 
    f <- get("f", my.env) 
    z <- k+f 
    return(z) 
} 

Answer 1

코드는 정의하지만 결코 실행하는 경우가 만든 것 rumi 때문에 물체도 결코 실행하지 않습니다.

sumi <- function(x,y) { 
    my.env <- new.env() 

    my.env$rumi <- function() { 
     my.env$k <- x[1] 
     my.env$f <- y[1] 
    } 
    my.env$rumi() ### 
    k <- get("k", my.env) 
    f <- get("f", my.env) 
    z <- k+f 
    return(z) 
} 
sumi(1, 2) 
## [1] 3 

:

라인은 작동 ### 표시 추가