按顺序拆分矢量

Question

以下向量x包含两个序列1:4和6:7,其他非连续数字之间.

x <- c(7, 1:4, 6:7, 9)

我想x按顺序拆分,以便结果如下所示.

# [[1]]
# [1] 7
#
# [[2]]
# [1] 1 2 3 4
#
# [[3]]
# [1] 6 7
#
# [[4]]
# [1] 9

有一种快速简单的方法吗？

我试过了

split(x, c(0, diff(x)))

接近,但我不想附加0差异向量是正确的方法.使用findInterval也没有用.

Answer 1

split(x, cumsum(c(TRUE, diff(x)!=1)))
#$`1`
#[1] 7
#
#$`2`
#[1] 1 2 3 4
#
#$`3`
#[1] 6 7
#
#$`4`
#[1] 9