字符串中有多少个数字是连续的

Question

有这个向量：

vector <- c("236", "234", "", "12", "24", "3")

[1] "236" "234" ""    "12"  "24"  "3"

我想检查每个元素中有多少个连续数字。

预期输出：

2 3 0 2 0 0

我不知道该怎么做！

Answer 1

一种可能的解决方案：

sapply(strsplit(vector,""),
       function(x) {s <- sum(diff(as.numeric(x))==1); 
                    if (s) {s+1} else 0})

[1] 2 3 0 2 0 0