Estou procurando atribuir pontuações de legibilidade diferentes ao texto em R, como o Flesh Kincai

Alguém sabe uma maneira de segmentar palavras em sílabas usando R? Eu não preciso necessariamente dos segmentos de sílaba, mas de uma contage

so por exemplo:

x <- c('dog', 'cat', 'pony', 'cracker', 'shoe', 'Popsicle')

rendimento: 1, 1, 2, 2, 1, 3

Cada número corresponde ao número de sílabas da palavr