R/prepare_results_corpus.R

In juba/texplor: Interactive Interfaces for Textual Analysis

##' @rdname prepare_results
##' @aliases prepare_results.Corpus
##' @seealso \code{\link[tm]{Corpus}}
##' @import quanteda
##' @export

prepare_results.Corpus <- function(obj) {
  
  if (!inherits(obj, "Corpus")) stop("obj must be of class Corpus")
  
  ## convert to quanteda corpus
  obj <- quanteda::corpus(obj)
  
  return(prepare_results(obj))
}


##' @rdname prepare_results
##' @aliases prepare_results.corpus
##' @seealso \code{\link[quanteda]{corpus}}
##' @import quanteda
##' @export

prepare_results.corpus <- function(obj) {
    
    if (!inherits(obj, "corpus")) stop("obj must be of class corpus")

    return(obj)
}