Пользовательская функция не может быть передана через функцию content_transformer в пакете tm

Question

Я пытаюсь провести анализ текста с использованием пакета TM в г. Я в системе Windows.

Я создал простую функцию для преобразования существительных во множественном числе в единый формат. пожалуйста, смотрите прикрепленный для кода.

to_single<-function(x){
if(str_sub(x,-3)=="ies"){
str_sub(x,-3)<-"y"}
else if(str_sub(x,-2)=="es"){
str_sub(x,-2)<-""
}
else if(str_sub(x,-1)=="s"){
str_sub(x,-1)<-""}
else{
x=x}
return(x)
}

Затем я пытаюсь использовать функции content_transformer и tm_map для очистки созданного корпуса.

to_Single <- content_transformer(to_single)
docs <- tm_map(docs, to_Single)

#docs is the corpus I created.

Однако это не работает. Кто-нибудь может дать мне знать, где я не прав?

Большое спасибо за вашу помощь.