switch 문 내에서 익명 함수 (들)을 평가

Question

내가이 같은 코드를 가지고 말 : 내가 평가되지 않은 기능을 얻을 tmp 내가 입력하면, 이제

tmp <- switch("b", 
       a = print("foo"), 
       b = function() paste("I want to evaluate this one!"), 
       stop("say what now?") 
) 

를, 그래서 나중에 괄호의 쌍을 추가 할 필요가 위해 그것을 평가하기 :

물론

tmp 
## function() paste("I want to evaluate this one!") 
tmp() 
## [1] "I want to evaluate this one!" 

,이 기능을 미리 정의 할 수 있으며 (이 익명 아니라 경우에) switch 내를 통과,하지만 난 그게 익명 평가할 수 및/또는 합리적인지 알고 싶어 switch 문 내에서 작동합니다.

Answer 1

나는 do.call() 익명 함수를 호출하는 일이 마련 될 것 같아요 :

tmp <- switch("b", 
       a = print("foo"), 
       b = do.call(function() paste("I want to evaluate this one!"), 
          list()), 
       stop("say what now?") 
) 

예컨대을 :

> tmp 
[1] "I want to evaluate this one!" 

---

에드 그것은 상기의 간단한 버전은 다음 따라서 익명 함수 괄호의 제 1 세트 및 생성 된 함수 생성

tmp <- switch("b", 
       a = print("foo"), 
       b = (function() paste("I want to evaluate this one!"))(), 
       stop("say what now?") 
) 

()는 상기 제 2 세트를 추가로 불린다.

---

그러나 명명 된 기능으로 익명 함수를 설정하고 전화 나 청소기 보인다

같은 최종 결과가

foo <- function() paste("I want to evaluate this one!") 
tmp <- switch("b", 
       a = print("foo"), 
       b = foo(), 
       stop("say what now?") 
) 

:이 경우

> tmp 
[1] "I want to evaluate this one!" 

을 모든 함수 내에서 foo()은 인라인으로 정의 될 수 있으므로 외부 함수 호출을 실행하는 동안에 만 존재합니다.

Answer 2

중괄호없이 객체 (해당 data.frame, 목록 또는 귀하의 경우에는 함수)를 작성하면 print()이 발생합니다. 분명히

:

> class(tmp()) 
[1] "character" 
> class(tmp) 
[1] "function" 

Answer 3

Roman이 말했듯이 함수가 반환됩니다. 함수의 결과를 원하면 함수를 넣으십시오 (귀하의 경우에는 function()을 입력하십시오).

tmp <- switch("b", 
       a = print("foo"), 
       b = { 
        x <- paste("I want to evaluate this one!") 
        x <- paste(x,sample(1:10,1)) 
        print(x) 
       }, 
       stop("say what now?") 
) 

을하지만 당신은 결과를 유지하는 것이 알고 있어야합니다, 그래서 당신은 항상 sample에서 같은 결과를해야합니다 : 당신이 다른 기능의 조합을 원하는 경우, 괄호에 넣어.