确定序列中的序列是否有“缺口”

Question

我想确定序列是否包含任何间隙或不规则步骤？不确定这是否是正确的方式来表达这一点，并且很有可能这是重复的（但我无法找到一个好问题）。

以下has_gap函数给出了正确的结果，但看起来有点笨重？也许有一些我没有发现的内置物？

x1 <- c(1:5, 7:10)
x2 <- 1:10
x3 <- seq(1, 10, by = 2)
x4 <- c(seq(1, 6, by = 2), 6, seq(7, 10, by = 2))

has_gap <- function(vec) length(unique(diff(vec))) != 1

vecs <- list(x1, x2, x3, x4)
sapply(vecs, has_gap)
# [1]  TRUE FALSE FALSE  TRUE