#' unigranTokenizer function
#'
#' This is a uni-gram tokenizer for creating Document-Term Matrix
#'
#' @param x text data which can be tokenized
#' @import tm
#' @importFrom NLP ngrams
#' @importFrom NLP words
#'
#' @export
unigramTokenizer <- function(x){unlist(lapply(NLP::ngrams(NLP::words(x), 1), paste, collapse = " "), use.names = FALSE)}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.