Выделение основы слова вместо выделения корня в R

Есть ли способ получить базовое слово вместо корневого слова при выделении корней с использованием НЛП в R?

Код:

> #Loading libraries
> library(tm)
> library(slam)
> 
> #Vector
> Vec=c("happyness happies happys","sky skies")
> 
> #Creating Corpus
> Txt=Corpus(VectorSource(Vec))
> 
> #Stemming
> Txt=tm_map(Txt, stemDocument)
> 
> #Checking result
> inspect(Txt)
A corpus with 2 text documents

The metadata consists of 2 tag-value pairs and a data frame
Available tags are:
  create_date creator 
Available variables in the data frame are:
  MetaID 

[[1]]
happi happi happi

[[2]]
sky sky

> 

Могу ли я получить базовое слово" счастливый "( базовое слово) вместо «happyi» (корневое слово) для «счастья, счастья, счастья» с использованием R.