R中的Wordnet Lemmatizer导致空列表

Question

我有以下代码在wordnet中使用R中的词形变换器，但是当输入向量是一个包含多个单词的字符串时，输出是一个空列表。

使用的代码：

setDict("C:\\Program Files (x86)\\WordNet\\2.1\\dict")


a <- c("the quality of the leather good, feels a texture, very love!")

finalresult <- lapply(a, function(x){
            x.filter <- getTermFilter("StartsWithFilter", x, TRUE)
            terms <- getIndexTerms("NOUN", 1, x.filter)
            sapply(terms, getLemma) }
        )

> finalresult
[[1]]
list()

我怎样才能克服这一点？ 提前谢谢！