data(crude)
crude[[1]]
skipWords <- function(x, ...) removeWords(x, c("it", "the"))
funs <- list(tmTolower, removePunctuation, skipWords, stripWhitespace)
tmMap(crude, FUN = tmReduce, tmFuns = funs)[[1]]
Run the code above in your browser using DataLab