检查 R 向量中的序列

我正在寻找一个函数或操作，如果我有

A <- c(1, 2, 3, 4, 5)

and B <- c(1, 2, 3)

and C <- c(2, 1)

检查 A 是否包含 B 时得到 TRUE，检查 A 是否包含 C 时得到 FALSE

基本上，相当于 %in% 运算符，但实际上关心元素的顺序

在一个完美的世界里，我不需要某种东西就能做到这一点apply声明，但我最终可能不得不

好吧，如果允许使用某种 apply 循环，那么这可以工作：

"%seq_in%" = function(b,a) any(sapply(1:(length(a)-length(b)+1),function(i) all(a[i:(i+length(b)-1)]==b))) 

（感谢 John Coleman 发现错误进行编辑！）

编辑2： 我也忍不住尝试解决“不连续”的情况：

# find_subseq() returns positions within vec of ordered elements of x, or stops with NA upon failing
find_subseq = function(x,vec) {
    p=match(x[1],vec)
    if(is.na(p)||length(x)==1){ p } 
    else { c(p,p+find_subseq(x[-1],vec[-seq_len(p)])) }
}
"%seq_somewhere_in%" = function(b,a) all(!is.na(find_subseq(b,a)))

例子：

1:3 %seq_in% 1:10
[1] TRUE
c(3,1,2) %seq_in% 1:10
[1] FALSE
c(1,2,3) %seq_in% c(3,2,1,2,3)
[1] TRUE
2:1 %seq_in% c(1,2,1)
[1] TRUE
1:3 %seq_somewhere_in% c(1,10,10,2,10,10,10,3,10)
[1] TRUE