R : lapply ...를 전달할 때 "function"을 찾을 수 없습니까?

Question

병렬로 실행할지 여부를 지정할 수있는 lapply 함수의 다른 버전을 구현하고 싶습니다. 코드는 다음과 같다 :

papply <- function(x,fun,..., 
    parallel=FALSE,parallel.options=list(mode="socket",cpus=2), 
    integrate=rbind,convert=NULL) { 
    if(parallel) { 
    require(parallelMap) 
    do.call(parallelStart,parallel.options) 
    result <- parallelLapply(x,fun,...) 
    parallelStop() 
    } else { 
    result <- lapply(x,fun,...) 
    } 
    if(is.function(integrate)) { 
    result <- do.call(integrate,result) 
    } 
    if(is.function(convert)) { 
    result <- convert(result) 
    } 
    return(result) 
} 

parallel=TRUE, 난 그렇지 않으면 내가 보통 lapply 함수를 사용 {parallelMap} 패키지에 parallelLapply()을 사용합니다. 두 가지 방법 모두에서 벡터 /리스트를 매핑하려고하면 x이고 매핑 기능은 fun입니다. fun에는 둘 이상의 매개 변수가있을 수 있으므로 fun에 추가 인수를 전달하려면 ...을 사용합니다.

그러나, 추가 인수는 같은 지정되지 않은 경우

papply(1:5,function(i,x){return(data.frame(a=i,b=i+1))}) 

그것은 잘 작동하고 올바른 값을 반환 추가 인수는

papply(1:5,function(i,x){return(data.frame(a=i,b=i+x))},x=1) 

같이 지정

a b 
1 1 2 
2 2 3 
3 3 4 
4 4 5 
5 5 6 

그러나 경우

문제가 해결되지 않았지만

과 같은 오류가보고되었습니다.

Error in get(as.character(FUN), mode = "function", envir = envir) : 
    object 'fun' of mode 'function' was not found 
4 get(as.character(FUN), mode = "function", envir = envir) 
3 match.fun(FUN) 
2 lapply(x, fun, ... = ...) at utils.R#37 
1 papply(1:5, function(i, x) { 
    return(data.frame(a = i, b = i + x)) 
}, x = 1) 

왜이 오류가 발생하는지 알 수 없습니다. 오류를 해결하고 기능을 작동 시키려면 어떻게합니까?

Answer 1

이것은 위치 일치 및 인수 이름 지정 문제가됩니다. > 따라서 오류 - 당신이

papply(1:5,function(i,x){return(data.frame(a=i,b=i+x))},x=1) 

에 이름을 때

x이이 1:5이 fun으로 일치하는 것을 의미한다, 따라서 papply의 형식 인수입니다. R 알고하는 것이 불가능 함수의 현재 양식에서

당신은 당신이이 ... 구성 요소에서 고려되어야 할 x=1을 표시 할 때.

유용한 접근 방식으로 mapply에 대한 MoreArgs 인수를 참조하십시오.