如何在R中使文本解析功能高效

I have this function which calculates the consonanceScore of a book. First I import the phonetics dictionary I have this function which calculates the conso