- Добавьте запятую перед пробелами
- , разделенные запятой
- оставьте только пробел или цифры
- Подсчитайте количество символов и посмотрите, соответствует ли оно необходимый размер
s = c("123456789", "kfasdf 3456789asdf",
"a 1", "12345 789", "1 9",
"a 678a")
sapply(strsplit(gsub("(\\s+)", ",\\1", s), ","), function(x) {
any(nchar(gsub("[A-Za-z]", "", x)) == 9)
})
#[1] TRUE TRUE TRUE FALSE FALSE FALSE