使用R生成dtm的错误Error in seq.default(1, max_len) : 'to' must be a finite number

#CREATE DTM
text.source.tokens.dfm <- tokens_replace(x = text.source.tokens, pattern = lemmaData$word,replacement =  lemmaData$base_form,case_insensitive = TRUE) %>% dfm(.,remove = c(stopwords("de"), german_stopwords))

使用R在topic modelling的时候出现的报错。
求解惑，我什么都没有改变，但是突然有一次这个代码就报错了。