Nothing
##' Return Chinese stop words.
##'
##' @title Return Chinese stop words.
##' @param stopwords A character vector of stop words.
##' @param useStopDic Whether to use the default stop words.
##' @return A vector of stop words.
##' @author Jian Li <\email{rweibo@@sina.com}>
##' @examples
##' stopwordsCN("yes", useStopDic = FALSE)
stopwordsCN <- function(stopwords = NULL, useStopDic = TRUE)
{
stopwords <- .verifyChar(stopwords)
if (identical(useStopDic, TRUE)) {
STOPWORDS <- .getStopWords()
stopwords <- union(stopwords, STOPWORDS$word)
}
return(stopwords)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.