Почему "vapply" безопаснее, чем "sapply"?

как уже отмечалось, vapply делает две вещи:

• небольшое улучшение скорости
• улучшает согласованность, предоставляя ограниченные проверки типа возврата.

второй момент является большим преимуществом, так как это помогает поймать ошибки, прежде чем они произойдут, и приводит к более надежному коду. Эта проверка возвращаемого значения может быть выполнена отдельно с помощью sapply следовал по 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

как я говорю своим студентам, часть того, чтобы стать программистом, меняет ваше мышление с "ошибки раздражают" на " ошибки-мой друг."

нулевой длины входных данных
Один связанный момент заключается в том, что если входная длина равна нулю,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, вы гарантированно имеете определенный тип вывода, поэтому вам не нужно писать дополнительные проверки для входов нулевой длины.

критерии

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)