match.call과 관련된 문제

Question

match.call을 사용하는 함수를 작성했지만 직접 함수를 호출 할 때 작동하지만 다른 함수 내에서 함수가 호출 될 때 작동합니다. 나는 그것이 환경을 처리하는 방법과 관련이 있다고 믿는다. 그러나 나는 그것을 이해할 수 없다. 여기에 재현 할 예입니다

tester <- function() { 

    var <- "helloworld" 

    myFunc(var) 

} 


myFunc <- function(x) { 

    tmp <- match.call() 
    tmp[[1]] <- quote(toupper) 
    eval(tmp) 

} 

tester() # error 

myFunc("helloworld") # works fine 

내가 myFunc이 tester 내에서 호출되는 경우는 tester 함수의 격리 된 환경에 존재하기 때문에이 var을 찾을 수 있다고 생각합니다.

myFunc을 tester 내부에서 작업하는 방법에 대한 아이디어가 있으면 알려 주시면 감사하겠습니다. eval 및 match.call에 대한 환경을 변경하려고했지만 아무 소용이 없습니다.

Answer 1

의심의 여지가 있습니다.

매우 간단한 해결책은 부모의 컨텍스트에서 함수를 평가하는 것입니다. eval을 eval.parent으로 바꿉니다.

myFunc <- function(x) { 
    tmp <- match.call() 
    tmp[[1]] <- quote(toupper) 
    eval.parent(tmp) 
} 

일반적으로, 기능 traceback 디버깅 유사한 문제에 엄청난 도움이 될 수 있습니다

> tester() 
Error in as.character(x) : 
    cannot coerce type 'closure' to vector of type 'character' 

좋아하지만, 어떤 "폐쇄"(= 기능) 우리는 얘기?

> traceback() 
5: toupper(x = var) 
4: eval(expr, envir, enclos) 
3: eval(tmp) at #5 
2: myFunc(var) at #5 
1: tester() 

첫 번째 줄의 단서는 toupper(x = var)입니다. tester의 문맥에서, var은 패키지가 첨부되어 있기 때문에 발견 된 기능 (폐쇄) stats::var을 나타냅니다.