r - ベクトルを区切り文字で分割するにはどうすればよいですか？

Question

たとえば、整数のベクトルがあり、c(1,2,0,3,4)0を区切り文字にして、を取得しlist(c(1,2), c(3,4))ます。使用できるライブラリ関数はありますか？

Answer 1

私が知っているライブラリ関数はありませんが、独自に作成できます。

split.vec <- function(vec, sep = 0) {
    is.sep <- vec == sep
    split(vec[!is.sep], cumsum(is.sep)[!is.sep])
}

split.vec(c(1,2,0,3,4), 0)
# $`0`
# [1] 1 2
# 
# $`1`
# [1] 3 4