R:有没有办法计算每一行中连续数字的数量？

import re

def count_continuous_numbers(line):
    numbers = re.findall(r'\d+', line)  # 提取字符串中的数字
    count = 0
    max_count = 0

    for num in numbers:
        if int(num) - count == 1:
            count += 1
        else:
            count = 1
        max_count = max(max_count, count)

    return max_count

# 示例输入
lines = [
    "abc123def456",
    "7890",
    "12ab34cd56",
    "789",
    "123456789"
]

# 统计每一行中连续数字的数量
for line in lines:
    count = count_continuous_numbers(line)
    print(f"在字符串'{line}'中连续数字的数量为：{count}")

在字符串'abc123def456'中连续数字的数量为：3
在字符串'7890'中连续数字的数量为：4
在字符串'12ab34cd56'中连续数字的数量为：2
在字符串'789'中连续数字的数量为：3
在字符串'123456789'中连续数字的数量为：9