优化:使用tm_映射中包装到content_transformer中的函数列表

优化:使用tm_映射中包装到content_transformer中的函数列表,r,apply,tm,R,Apply,Tm,有没有比这更好/更快的方法: funcs <- list(tolower, removePunctuation, removeNumbers, stripWhitespace) for (i in funcs) myCorpus <- tm_map(myCorpus, content_transformer(i)) funcs ## wrap content_transformer around tm_reduce calls helpFun <- function(x, a

有没有比这更好/更快的方法:

funcs <- list(tolower, removePunctuation, removeNumbers, stripWhitespace)
for (i in funcs) myCorpus <- tm_map(myCorpus, content_transformer(i))
funcs
## wrap content_transformer around tm_reduce calls
helpFun <- function(x, args) content_transformer(tm_reduce(x, args))
myCorpus <- tm_map(myCorpus, helpFun, myCorpus, funcs)