R/rm_stopwords.R

In data-steve/kleentex: Helps Clean Your Text

#' Remove Stopwords from Vector of Words
#'
#' Removes Stopwords from Vector of Words.
#'
#' @param xx text string / vector
#' @export
rm_stopwords <- function(xx) {
  xx[!grepl(
    paste(
      paste0("\\b",tm::stopwords(), "\\b")
      ,collapse="|")
    ,xx , ignore.case = TRUE)]
}