#' Stem a Vector of Words
#'
#' Stem a Vector of Texts.
#'
#' @param xx text string / vector
#' @param language which algorithm to use
#' @export
stem_words <- function(xx, language = "porter") {
SnowballC::wordStem(x, language)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.