在Knime中使用R递归函数时，出现“错误：C堆栈使用率太接近限制”

Question

我在Knime的R代码段中有以下代码。

ngrams <- as.list(knime.in$Ngram)

calc <- function(e, l){
    if(length(l) == 0){
        return(e)
    }
    else if (grepl(e, l[1], fixed=TRUE)){
        return(l[1])
    }
    else {
        return(calc(e, (tail(l, -1))))
    }
}

reduced_ngrams <- lapply(ngrams, calc, l=ngrams)


knime.out <- as.data.frame(unlist(reduced_ngrams))

但是，当R代码段输入中有100行以上时，Knime在“评估脚本”中出错。这是错误：

Error: C stack usage is too close to the limit

代码在RStudio中运行并正常运行。