Estoy buscando asignar algunos puntajes de legibilidad diferentes al texto en R, como el Flesh Kincaid.

¿Alguien sabe de una manera de segmentar palabras en sílabas usando R? No necesito necesariamente los segmentos de sílabas en sí, sino un recuento.

so por ejemplo:

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

produciría: 1, 1, 2, 2, 1, 3

Cada número correspondiente al número de sílabas en la palabra.