#internal function used by trans.cloud and word.comp (not exportd)
qda.handler <-
function(x) {
if (!is.null(comment(x))) {
if (comment(x) %in% "freqList") {
return(freqTab2words(x))
} else {
if (!comment(x) %in% "bagOwords") {
stop("Must be a word_list object or a vector of raw words")
} else {
return(x)
}
}
} else {
if (is.vector(x)) {
warning ("Not a word_listobject.")
return(x)
} else {
stop("Must be a word_list object or a vector of raw words")
}
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.