r

이미 언급했듯이 vapply두 가지 작업을 수행합니다.

• 약간의 속도 향상
• 제한된 반환 유형 검사를 제공하여 일관성을 향상시킵니다.

두 번째 요점은 오류가 발생하기 전에 발견하고 더 강력한 코드로 이어지기 때문에 더 큰 이점입니다. 이 반환 값 검사 는 반환 값이 예상 한 것과 일치하는지 확인하기 위해 sapplyfollowed 를 사용하여 개별적으로 수행 할 수 stopifnot있지만 vapply조금 더 쉽습니다 (사용자 지정 오류 검사 코드가 범위 내의 값을 검사 할 수 있기 때문에 더 제한적일 경우 등). ).

다음 vapply은 결과가 예상대로인지 확인 하는 예입니다 . 이것은 PDF 스크래핑 중에 방금 작업 한 것과 유사 findD합니다.정규식원시 텍스트 데이터의 패턴을 일치시키기 위해 (예 : split엔티티 별 목록이 있고 각 엔티티 내의 주소와 일치하는 정규식이 있습니다. 간혹 PDF가 순서가 맞지 않게 변환되어 불량을 일으킨 엔티티).

> input1 <- list( letters[1:5], letters[3:12], letters[c(5,2,4,7,1)] )
> input2 <- list( letters[1:5], letters[3:12], letters[c(2,5,4,7,15,4)] )
> findD <- function(x) x[x=="d"]
> sapply(input1, findD )
[1] "d" "d" "d"
> sapply(input2, findD )
[[1]]
[1] "d"

[[2]]
[1] "d"

[[3]]
[1] "d" "d"

> vapply(input1, findD, "" )
[1] "d" "d" "d"
> vapply(input2, findD, "" )
Error in vapply(input2, findD, "") : values must be length 1,
 but FUN(X[[3]]) result is length 2

제가 학생들에게 말했듯이 프로그래머가되는 것은 당신의 사고 방식을 “오류는 성가시다”에서 “오류는 내 친구”로 바꾸는 것입니다.

길이가 0 인 입력
한 가지 관련된 점은 입력 길이가 0이면 sapply입력 유형에 관계없이 항상 빈 목록을 반환한다는 것입니다. 비교:

sapply(1:5, identity)
## [1] 1 2 3 4 5
sapply(integer(), identity)
## list()    
vapply(1:5, identity)
## [1] 1 2 3 4 5
vapply(integer(), identity)
## integer(0)

를 사용하면 vapply특정 유형의 출력이 보장되므로 길이가 0 인 입력에 대해 추가 검사를 작성할 필요가 없습니다.

벤치 마크

vapply 결과가 예상되는 형식을 이미 알고 있기 때문에 조금 더 빠를 수 있습니다.

input1.long <- rep(input1,10000)

library(microbenchmark)
m <- microbenchmark(
  sapply(input1.long, findD ),
  vapply(input1.long, findD, "" )
)
library(ggplot2)
library(taRifx) # autoplot.microbenchmark is moving to the microbenchmark package in the next release so this should be unnecessary soon
autoplot(m)