R/print.docList.R

In michaelgavin/tei2r: Import and parse TEI files in R

setMethod(f = "show", signature = "docList",
          definition = function(object) {
  print("Document list summary:")
  cat("@directory:", object@directory,"\n")
  cat("@filenames (first 5):",object@filenames[1:5],"\n")
  cat("@indexFile location:", object@indexFile, "\n")
  cat("@index of", nrow(object@index), "rows and", ncol(object@index), "columns.", "\n")
  cat(".... index columns:", colnames(object@index), "\n")
  cat("@stopwords: Character vector of", length(object@stopwords), "words.", "\n")
  cat("@texts: List of imported character data.", length(object@texts), "texts.")
          }
)

setMethod(f = "summary", signature = "docList",
          definition = function(object) {
            print("Document list summary:")
            cat("@directory:", object@directory,"\n")
            cat("@filenames (first 5):",object@filenames[1:5],"\n")
            cat("@indexFile location:", object@indexFile, "\n")
            cat("@index of", nrow(object@index), "rows and", ncol(object@index), "columns.", "\n")
            cat(".... index columns:", colnames(object@index), "\n")
            cat("@stopwords: Character vector of", length(object@stopwords), "words.", "\n")
            cat("@texts: List of imported character data.", length(object@texts), "texts.")
          }
)

ViewIndex = function(dl) { View(dl@index) }

ViewTexts = function(dl) {
  txt = lapply(dl@texts, function(x) paste(x[1:12], collapse = " "))
  ids = names(dl@texts)
  xy = data.frame(ids,unlist(txt))
  row.names(xy) = NULL
  colnames(xy) = c("ID","TEXT")
  print(xy)
}