R/02_method_show.kRp.readability.R

In koRpus: Text Analysis with Emphasis on POS Tagging, Readability, and Lexical Diversity

# Copyright 2010-2020 Meik Michalke <meik.michalke@hhu.de>
#
# This file is part of the R package koRpus.
#
# koRpus is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# koRpus is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with koRpus.  If not, see <http://www.gnu.org/licenses/>.


#' @export
#' @docType methods
#' @aliases show,kRp.readability-method
#' @rdname show-methods
#' @examples
#' \dontrun{
#' flesch(tagged.txt)
#' }
#' @include 01_class_05_kRp.readability.R
#' @include 02_method_show.kRp.lang.R
setMethod("show", signature(object="kRp.readability"), function(object){

  if(sum(!is.na(slot(object, "ARI"))) == 0){
    show.ARI <- FALSE
  } else {
    if("simplified" %in% slot(object, "ARI")[["flavour"]]){
      ARI.value <- "index"
    } else {
      ARI.value <- "grade"
    }
    prt.ARI.flavour <- slot(object, "ARI")[["flavour"]]
    prt.ARI <- round(slot(object, "ARI")[[ARI.value]], digits=2)
    show.ARI <- TRUE
  }
  if(sum(!is.na(slot(object, "ARI.NRI"))) == 0){
    show.ARI.NRI <- FALSE
  } else {
    prt.ARI.NRI.flavour <- slot(object, "ARI.NRI")[["flavour"]]
    prt.ARI.NRI <- round(slot(object, "ARI.NRI")[["grade"]], digits=2)
    show.ARI.NRI <- TRUE
  }
  if(sum(!is.na(slot(object, "ARI.simple"))) == 0){
    show.ARI.simple <- FALSE
  } else {
    prt.ARI.simple.flavour <- slot(object, "ARI.simple")[["flavour"]]
    prt.ARI.simple <- round(slot(object, "ARI.simple")[["index"]], digits=2)
    show.ARI.simple <- TRUE
  }

  if(sum(!is.na(slot(object, "Bormuth"))) == 0){
    show.Bormuth <- FALSE
  } else {
    prt.Bormuth.flavour <- slot(object, "Bormuth")[["flavour"]]
    prt.Bormuth.pct.fam <- round(slot(object, "Bormuth")[["pct.fam"]], digits=0)
    prt.Bormuth.MC <- round(slot(object, "Bormuth")[["mean.cloze"]], digits=2)
    prt.Bormuth.grade <- round(slot(object, "Bormuth")[["grade"]], digits=2)
    show.Bormuth <- TRUE
  }

  if(sum(!is.na(slot(object, "Coleman"))) == 0){
    show.Coleman <- FALSE
  } else {
    prt.Coleman.flavour <- slot(object, "Coleman")[["flavour"]]
    prt.Coleman.pron <- round(slot(object, "Coleman")[["num.pron"]], digits=2)
    prt.Coleman.prep <- round(slot(object, "Coleman")[["num.prep"]], digits=2)
    prt.Coleman.C1 <- round(slot(object, "Coleman")[["C1"]], digits=0)
    prt.Coleman.C2 <- round(slot(object, "Coleman")[["C2"]], digits=0)
    prt.Coleman.C3 <- round(slot(object, "Coleman")[["C3"]], digits=0)
    prt.Coleman.C4 <- round(slot(object, "Coleman")[["C4"]], digits=0)
    show.Coleman <- TRUE
  }

  if(sum(!is.na(slot(object, "Coleman.Liau"))) == 0){
    show.Coleman.Liau <- FALSE
  } else {
    prt.Coleman.Liau.flavour <- slot(object, "Coleman.Liau")[["flavour"]]
    prt.Coleman.Liau.ECP <- round(slot(object, "Coleman.Liau")[["ECP"]], digits=0)
    prt.Coleman.Liau.grade <- round(slot(object, "Coleman.Liau")[["grade"]], digits=2)
    prt.Coleman.Liau.short <- round(slot(object, "Coleman.Liau")[["short"]], digits=2)
    show.Coleman.Liau <- TRUE
  }

  if(sum(!is.na(slot(object, "Dale.Chall"))) == 0){
    show.Dale.Chall <- FALSE
  } else {
    prt.Dale.Chall.flavour <- slot(object, "Dale.Chall")[["flavour"]]
    prt.Dale.Chall.pct <- round(slot(object, "Dale.Chall")[["pct"]], digits=0)
    prt.Dale.Chall.raw <- round(slot(object, "Dale.Chall")[["raw"]], digits=2)
    prt.Dale.Chall.grade <- slot(object, "Dale.Chall")[["grade"]]
    prt.Dale.Chall.age <- slot(object, "Dale.Chall")[["age"]]
    show.Dale.Chall <- TRUE
  }
  if(sum(!is.na(slot(object, "Dale.Chall.PSK"))) == 0){
    show.Dale.Chall.PSK <- FALSE
  } else {
    prt.Dale.Chall.PSK.flavour <- slot(object, "Dale.Chall.PSK")[["flavour"]]
    prt.Dale.Chall.PSK.pct <- round(slot(object, "Dale.Chall.PSK")[["pct"]], digits=0)
    prt.Dale.Chall.PSK.raw <- round(slot(object, "Dale.Chall.PSK")[["raw"]], digits=2)
    prt.Dale.Chall.PSK.grade <- slot(object, "Dale.Chall.PSK")[["grade"]]
    prt.Dale.Chall.PSK.age <- slot(object, "Dale.Chall.PSK")[["age"]]
    show.Dale.Chall.PSK <- TRUE
  }
  if(sum(!is.na(slot(object, "Dale.Chall.old"))) == 0){
    show.Dale.Chall.old <- FALSE
  } else {
    prt.Dale.Chall.old.flavour <- slot(object, "Dale.Chall.old")[["flavour"]]
    prt.Dale.Chall.old.pct <- round(slot(object, "Dale.Chall.old")[["pct"]], digits=0)
    prt.Dale.Chall.old.raw <- round(slot(object, "Dale.Chall.old")[["raw"]], digits=2)
    prt.Dale.Chall.old.grade <- slot(object, "Dale.Chall.old")[["grade"]]
    prt.Dale.Chall.old.age <- slot(object, "Dale.Chall.old")[["age"]]
    show.Dale.Chall.old <- TRUE
  }

  if(sum(!is.na(slot(object, "Danielson.Bryan"))) == 0){
    show.Danielson.Bryan <- FALSE
  } else {
    prt.Danielson.Bryan.flavour <- slot(object, "Danielson.Bryan")[["flavour"]]
    prt.DB1 <- round(slot(object, "Danielson.Bryan")[["DB1"]], digits=2)
    prt.DB2 <- round(slot(object, "Danielson.Bryan")[["DB2"]], digits=2)
    prt.DB2.grade <- slot(object, "Danielson.Bryan")[["DB2.grade"]]
    show.Danielson.Bryan <- TRUE
  }

  if(sum(!is.na(slot(object, "Dickes.Steiwer"))) == 0){
    show.Dickes.Steiwer <- FALSE
  } else {
    prt.Dickes.Steiwer.flavour <- slot(object, "Dickes.Steiwer")[["flavour"]]
    prt.Dickes.Steiwer.TTR <- round(slot(object, "Dickes.Steiwer")[["TTR"]], digits=2)
    prt.Dickes.Steiwer.score <- round(slot(object, "Dickes.Steiwer")[["Dickes.Steiwer"]], digits=2)
    show.Dickes.Steiwer <- TRUE
  }

  if(sum(!is.na(slot(object, "DRP"))) == 0){
    show.DRP <- FALSE
  } else {
    prt.DRP.score <- round(slot(object, "DRP")[["DRP"]], digits=2)
    show.DRP <- TRUE
  }

  if(sum(!is.na(slot(object, "ELF"))) == 0){
    show.ELF <- FALSE
  } else {
    prt.ELF.flavour <- slot(object, "ELF")[["flavour"]]
    prt.ELF.exsyls <- round(slot(object, "ELF")[["num.exsyls"]], digits=0)
    prt.ELF.score <- round(slot(object, "ELF")[["ELF"]], digits=2)
    show.ELF <- TRUE
  }

  if(sum(!is.na(slot(object, "Farr.Jenkins.Paterson"))) == 0){
    show.Farr.Jenkins.Paterson <- FALSE
  } else {
    prt.Farr.Jenkins.Paterson.flavour <- slot(object, "Farr.Jenkins.Paterson")[["flavour"]]
    prt.Farr.Jenkins.Paterson <- round(slot(object, "Farr.Jenkins.Paterson")[["FJP"]], digits=2)
    prt.Farr.Jenkins.Paterson.grade <- slot(object, "Farr.Jenkins.Paterson")[["grade"]]
    show.Farr.Jenkins.Paterson <- TRUE
  }
  if(sum(!is.na(slot(object, "Farr.Jenkins.Paterson.PSK"))) == 0){
    show.Farr.Jenkins.Paterson.PSK <- FALSE
  } else {
    prt.Farr.Jenkins.Paterson.PSK.flavour <- slot(object, "Farr.Jenkins.Paterson.PSK")[["flavour"]]
    prt.Farr.Jenkins.Paterson.PSK <- round(slot(object, "Farr.Jenkins.Paterson.PSK")[["FJP"]], digits=2)
    show.Farr.Jenkins.Paterson.PSK <- TRUE
  }

  if(sum(!is.na(slot(object, "Flesch"))) == 0){
    show.Flesch <- FALSE
  } else {
    prt.Flesch.flavour <- slot(object, "Flesch")[["flavour"]]
    prt.Flesch <- round(slot(object, "Flesch")[["RE"]], digits=2)
    prt.Flesch.grade <- slot(object, "Flesch")[["grade"]]
    prt.Flesch.age <- round(slot(object, "Flesch")[["age"]], digits=2)
    show.Flesch <- TRUE
  }
  if(sum(!is.na(slot(object, "Flesch.PSK"))) == 0){
    show.Flesch.PSK <- FALSE
  } else {
    prt.Flesch.PSK.flavour <- slot(object, "Flesch.PSK")[["flavour"]]
    prt.Flesch.PSK <- round(slot(object, "Flesch.PSK")[["RE"]], digits=2)
    prt.Flesch.PSK.grade <- round(slot(object, "Flesch.PSK")[["grade"]], digits=2)
    prt.Flesch.PSK.age <- round(slot(object, "Flesch.PSK")[["age"]], digits=2)
    show.Flesch.PSK <- TRUE
  }
  if(sum(!is.na(slot(object, "Flesch.Brouwer"))) == 0){
    show.Flesch.Brouwer <- FALSE
  } else {
    prt.Flesch.Brouwer.flavour <- slot(object, "Flesch.Brouwer")[["flavour"]]
    prt.Flesch.Brouwer <- round(slot(object, "Flesch.Brouwer")[["RE"]], digits=2)
    prt.Flesch.Brouwer.grade <- slot(object, "Flesch.Brouwer")[["grade"]]
    prt.Flesch.Brouwer.age <- round(slot(object, "Flesch.Brouwer")[["age"]], digits=2)
    show.Flesch.Brouwer <- TRUE
  }
  if(sum(!is.na(slot(object, "Flesch.Szigriszt"))) == 0){
    show.Flesch.Szigriszt <- FALSE
  } else {
    prt.Flesch.Szigriszt.flavour <- slot(object, "Flesch.Szigriszt")[["flavour"]]
    prt.Flesch.Szigriszt <- round(slot(object, "Flesch.Szigriszt")[["RE"]], digits=2)
    prt.Flesch.Szigriszt.grade <- slot(object, "Flesch.Szigriszt")[["grade"]]
    prt.Flesch.Szigriszt.age <- round(slot(object, "Flesch.Szigriszt")[["age"]], digits=2)
    show.Flesch.Szigriszt <- TRUE
  }
  if(sum(!is.na(slot(object, "Flesch.de"))) == 0){
    show.Flesch.de <- FALSE
  } else {
    prt.Flesch.de.flavour <- slot(object, "Flesch.de")[["flavour"]]
    prt.Flesch.de <- round(slot(object, "Flesch.de")[["RE"]], digits=2)
    prt.Flesch.de.grade <- slot(object, "Flesch.de")[["grade"]]
    prt.Flesch.de.age <- round(slot(object, "Flesch.de")[["age"]], digits=2)
    show.Flesch.de <- TRUE
  }
  if(sum(!is.na(slot(object, "Flesch.es"))) == 0){
    show.Flesch.es <- FALSE
  } else {
    prt.Flesch.es.flavour <- slot(object, "Flesch.es")[["flavour"]]
    prt.Flesch.es <- round(slot(object, "Flesch.es")[["RE"]], digits=2)
    prt.Flesch.es.grade <- slot(object, "Flesch.es")[["grade"]]
    prt.Flesch.es.age <- round(slot(object, "Flesch.es")[["age"]], digits=2)
    show.Flesch.es <- TRUE
  }
  if(sum(!is.na(slot(object, "Flesch.fr"))) == 0){
    show.Flesch.fr <- FALSE
  } else {
    prt.Flesch.fr.flavour <- slot(object, "Flesch.fr")[["flavour"]]
    prt.Flesch.fr <- round(slot(object, "Flesch.fr")[["RE"]], digits=2)
    prt.Flesch.fr.grade <- slot(object, "Flesch.fr")[["grade"]]
    prt.Flesch.fr.age <- round(slot(object, "Flesch.fr")[["age"]], digits=2)
    show.Flesch.fr <- TRUE
  }
  if(sum(!is.na(slot(object, "Flesch.nl"))) == 0){
    show.Flesch.nl <- FALSE
  } else {
    prt.Flesch.nl.flavour <- slot(object, "Flesch.nl")[["flavour"]]
    prt.Flesch.nl <- round(slot(object, "Flesch.nl")[["RE"]], digits=2)
    prt.Flesch.nl.grade <- slot(object, "Flesch.nl")[["grade"]]
    prt.Flesch.nl.age <- round(slot(object, "Flesch.nl")[["age"]], digits=2)
    show.Flesch.nl <- TRUE
  }

  if(sum(!is.na(slot(object, "Flesch.Kincaid"))) == 0){
    show.Flesch.Kincaid <- FALSE
  } else {
    prt.Flesch.Kincaid.flavour <- slot(object, "Flesch.Kincaid")[["flavour"]]
    prt.Flesch.Kincaid.grade <- round(slot(object, "Flesch.Kincaid")[["grade"]], digits=2)
    prt.Flesch.Kincaid.age <- round(slot(object, "Flesch.Kincaid")[["age"]], digits=2)
    show.Flesch.Kincaid <- TRUE
  }

  if(sum(!is.na(slot(object, "FOG"))) == 0){
    show.FOG <- FALSE
  } else {
    prt.FOG.flavour <- slot(object, "FOG")[["flavour"]]
    prt.FOG <- round(slot(object, "FOG")[["FOG"]], digits=2)
    show.FOG <- TRUE
  }
  if(sum(!is.na(slot(object, "FOG.PSK"))) == 0){
    show.FOG.PSK <- FALSE
  } else {
    prt.FOG.PSK.flavour <- slot(object, "FOG.PSK")[["flavour"]]
    prt.FOG.PSK <- round(slot(object, "FOG.PSK")[["FOG"]], digits=2)
    show.FOG.PSK <- TRUE
  }
  if(sum(!is.na(slot(object, "FOG.NRI"))) == 0){
    show.FOG.NRI <- FALSE
  } else {
    prt.FOG.NRI.flavour <- slot(object, "FOG.NRI")[["flavour"]]
    prt.FOG.NRI <- round(slot(object, "FOG.NRI")[["FOG"]], digits=2)
    show.FOG.NRI <- TRUE
  }

  if(sum(!is.na(slot(object, "FORCAST"))) == 0){
    show.FORCAST <- FALSE
  } else {
    prt.FORCAST.flavour <- slot(object, "FORCAST")[["flavour"]]
    prt.FORCAST.grade <- round(slot(object, "FORCAST")[["grade"]], digits=2)
    prt.FORCAST.age <- round(slot(object, "FORCAST")[["age"]], digits=2)
    show.FORCAST <- TRUE
  }
  if(sum(!is.na(slot(object, "FORCAST.RGL"))) == 0){
    show.FORCAST.RGL <- FALSE
  } else {
    prt.FORCAST.RGL.flavour <- slot(object, "FORCAST.RGL")[["flavour"]]
    prt.FORCAST.RGL.grade <- round(slot(object, "FORCAST.RGL")[["grade"]], digits=2)
    prt.FORCAST.RGL.age <- round(slot(object, "FORCAST.RGL")[["age"]], digits=2)
    show.FORCAST.RGL <- TRUE
  }

  if(sum(!is.na(slot(object, "Fucks"))) == 0){
    show.Fucks <- FALSE
  } else {
    prt.Fucks.score <- round(slot(object, "Fucks")[["Fucks"]], digits=2)
    prt.Fucks.grade <- round(slot(object, "Fucks")[["grade"]], digits=2)
    show.Fucks <- TRUE
  }

  if(sum(!is.na(slot(object, "Gutierrez"))) == 0){
    show.Gutierrez <- FALSE
  } else {
    prt.Gutierrez.score <- round(slot(object, "Gutierrez")[["Gutierrez"]], digits=2)
    show.Gutierrez <- TRUE
  }

  if(sum(!is.na(slot(object, "Harris.Jacobson"))) == 0){
    show.Harris.Jacobson <- FALSE
  } else {
    prt.Harris.Jacobson.flavour <- slot(object, "Harris.Jacobson")[["flavour"]]
    prt.Harris.Jacobson.pct <- round(slot(object, "Harris.Jacobson")[["pct"]], digits=0)
    prt.HJ1 <- round(slot(object, "Harris.Jacobson")[["HJ1"]], digits=2)
    prt.HJ2 <- round(slot(object, "Harris.Jacobson")[["HJ2"]], digits=2)
    prt.HJ3 <- round(slot(object, "Harris.Jacobson")[["HJ3"]], digits=2)
    prt.HJ4 <- round(slot(object, "Harris.Jacobson")[["HJ4"]], digits=2)
    prt.HJ5 <- round(slot(object, "Harris.Jacobson")[["HJ5"]], digits=2)
    show.Harris.Jacobson <- TRUE
  }

  if(sum(!is.na(slot(object, "Linsear.Write"))) == 0){
    show.Linsear.Write <- FALSE
  } else {
    prt.Linsear.Write.flavour <- slot(object, "Linsear.Write")[["flavour"]]
    prt.Linsear.Write.easy <- round(slot(object, "Linsear.Write")[["easy.words"]], digits=2)
    prt.Linsear.Write.hard <- round(slot(object, "Linsear.Write")[["hard.words"]], digits=2)
    prt.Linsear.Write <- round(slot(object, "Linsear.Write")[["grade"]], digits=2)
    show.Linsear.Write <- TRUE
  }

  if(sum(!is.na(slot(object, "LIX"))) == 0){
    show.LIX <- FALSE
  } else {
    prt.LIX.flavour <- slot(object, "LIX")[["flavour"]]
    prt.LIX <- round(slot(object, "LIX")[["index"]], digits=2)
    prt.LIX.grade <- slot(object, "LIX")[["grade"]]
    prt.LIX.rating <- slot(object, "LIX")[["rating"]]
    show.LIX <- TRUE
  }

  if(sum(!is.na(slot(object, "RIX"))) == 0){
    show.RIX <- FALSE
  } else {
    prt.RIX.flavour <- slot(object, "RIX")[["flavour"]]
    prt.RIX <- round(slot(object, "RIX")[["index"]], digits=2)
    prt.RIX.grade <- slot(object, "RIX")[["grade"]]
    show.RIX <- TRUE
  }

  if(sum(!is.na(slot(object, "SMOG"))) == 0){
    show.SMOG <- FALSE
  } else {
    prt.SMOG.flavour <- slot(object, "SMOG")[["flavour"]]
    prt.SMOG.grade <- round(slot(object, "SMOG")[["grade"]], digits=2)
    prt.SMOG.age <- round(slot(object, "SMOG")[["age"]], digits=2)
    show.SMOG <- TRUE
  }
  if(sum(!is.na(slot(object, "SMOG.de"))) == 0){
    show.SMOG.de <- FALSE
  } else {
    prt.SMOG.de.flavour <- slot(object, "SMOG.de")[["flavour"]]
    prt.SMOG.de.grade <- round(slot(object, "SMOG.de")[["grade"]], digits=2)
    prt.SMOG.de.age <- round(slot(object, "SMOG.de")[["age"]], digits=2)
    show.SMOG.de <- TRUE
  }
  if(sum(!is.na(slot(object, "SMOG.C"))) == 0){
    show.SMOG.C <- FALSE
  } else {
    prt.SMOG.C.flavour <- slot(object, "SMOG.C")[["flavour"]]
    prt.SMOG.C.grade <- round(slot(object, "SMOG.C")[["grade"]], digits=2)
    prt.SMOG.C.age <- round(slot(object, "SMOG.C")[["age"]], digits=2)
    show.SMOG.C <- TRUE
  }
  if(sum(!is.na(slot(object, "SMOG.simple"))) == 0){
    show.SMOG.simple <- FALSE
  } else {
    prt.SMOG.simple.flavour <- slot(object, "SMOG.simple")[["flavour"]]
    prt.SMOG.simple.grade <- round(slot(object, "SMOG.simple")[["grade"]], digits=2)
    prt.SMOG.simple.age <- round(slot(object, "SMOG.simple")[["age"]], digits=2)
    show.SMOG.simple <- TRUE
  }

  if(sum(!is.na(slot(object, "Spache"))) == 0){
    show.Spache <- FALSE
  } else {
    prt.Spache.flavour <- slot(object, "Spache")[["flavour"]]
    prt.Spache.pct <- round(slot(object, "Spache")[["pct"]], digits=0)
    prt.Spache.grade <- round(slot(object, "Spache")[["grade"]], digits=2)
    show.Spache <- TRUE
  }
  if(sum(!is.na(slot(object, "Spache.old"))) == 0){
    show.Spache.old <- FALSE
  } else {
    prt.Spache.old.flavour <- slot(object, "Spache.old")[["flavour"]]
    prt.Spache.old.pct <- round(slot(object, "Spache.old")[["pct"]], digits=0)
    prt.Spache.old.grade <- round(slot(object, "Spache.old")[["grade"]], digits=2)
    show.Spache.old <- TRUE
  }

  if(sum(!is.na(slot(object, "Strain"))) == 0){
    show.Strain <- FALSE
  } else {
    prt.Strain.flavour <- slot(object, "Strain")[["flavour"]]
    prt.Strain <- round(slot(object, "Strain")[["index"]], digits=2)
    show.Strain <- TRUE
  }

  if(sum(!is.na(slot(object, "Traenkle.Bailer"))) == 0){
    show.Traenkle.Bailer <- FALSE
  } else {
    prt.Traenkle.Bailer.flavour <- slot(object, "Traenkle.Bailer")[["flavour"]]
    prt.Traenkle.Bailer.TB1 <- round(slot(object, "Traenkle.Bailer")[["TB1"]], digits=2)
    prt.Traenkle.Bailer.TB2 <- round(slot(object, "Traenkle.Bailer")[["TB2"]], digits=2)
    prt.Traenkle.Bailer.pct.prep <- round(slot(object, "Traenkle.Bailer")[["pct.prep"]], digits=0)
    prt.Traenkle.Bailer.pct.conj <- round(slot(object, "Traenkle.Bailer")[["pct.conj"]], digits=0)
    show.Traenkle.Bailer <- TRUE
  }

  if(sum(!is.na(slot(object, "TRI"))) == 0){
    show.TRI <- FALSE
  } else {
    prt.TRI.flavour <- slot(object, "TRI")[["flavour"]]
    prt.TRI.words <- slot(object, "TRI")[["short"]]
    prt.TRI.punct <- slot(object, "TRI")[["punct"]]
    prt.TRI.foreign <- slot(object, "TRI")[["foreign"]]
    prt.TRI.score <- round(slot(object, "TRI")[["TRI"]], digits=2)
    show.TRI <- TRUE
  }

  if(sum(!is.na(slot(object, "Tuldava"))) == 0){
    show.Tuldava <- FALSE
  } else {
    prt.Tuldava.flavour <- slot(object, "Tuldava")[["flavour"]]
    prt.Tuldava.index <- round(slot(object, "Tuldava")[["Tuldava"]], digits=2)
    show.Tuldava <- TRUE
  }

  if(sum(!is.na(slot(object, "Wheeler.Smith"))) == 0){
    show.Wheeler.Smith <- FALSE
  } else {
    prt.Wheeler.Smith.flavour <- slot(object, "Wheeler.Smith")[["flavour"]]
    prt.Wheeler.Smith.score <- round(slot(object, "Wheeler.Smith")[["score"]], digits=2)
    prt.Wheeler.Smith.grade <- slot(object, "Wheeler.Smith")[["grade"]]
    show.Wheeler.Smith <- TRUE
  }
  if(sum(!is.na(slot(object, "Wheeler.Smith.de"))) == 0){
    show.Wheeler.Smith.de <- FALSE
  } else {
    prt.Wheeler.Smith.de.flavour <- slot(object, "Wheeler.Smith.de")[["flavour"]]
    prt.Wheeler.Smith.de.score <- round(slot(object, "Wheeler.Smith.de")[["score"]], digits=2)
    prt.Wheeler.Smith.de.grade <- slot(object, "Wheeler.Smith.de")[["grade"]]
    show.Wheeler.Smith.de <- TRUE
  }

  if(sum(!is.na(slot(object, "Wiener.STF"))) == 0){
    show.Wiener.STF <- FALSE
  } else {
    prt.Wiener.STF.flavour <- slot(object, "Wiener.STF")[["flavour"]]
    prt.WSTF1 <- round(slot(object, "Wiener.STF")[["nWS1"]], digits=2)
    prt.WSTF2 <- round(slot(object, "Wiener.STF")[["nWS2"]], digits=2)
    prt.WSTF3 <- round(slot(object, "Wiener.STF")[["nWS3"]], digits=2)
    prt.WSTF4 <- round(slot(object, "Wiener.STF")[["nWS4"]], digits=2)
    show.Wiener.STF <- TRUE
  }

  ## here we go:
#   if(show.){
#     cat("\n\n\n")
#     cat("  Parameters:", prt..flavour, "\n")
#     cat("   :", prt., "\n")
#    cat("       Index:", prt., "\n")
#    cat("       Grade:", prt., "\n")
#    cat("         Age:", prt., "\n")
#  } else {}

  if(show.ARI){
    cat("\nAutomated Readability Index (ARI)\n")
    cat("  Parameters:", prt.ARI.flavour, "\n")
    if(identical(ARI.value, "index")){
      cat("       Index:", prt.ARI, "\n\n")
    } else {
      cat("       Grade:", prt.ARI, "\n\n")
    }
  } else {}
  if(show.ARI.NRI){
    cat("\nAutomated Readability Index (ARI)\n")
    cat("  Parameters:", prt.ARI.NRI.flavour, "\n")
    cat("       Grade:", prt.ARI.NRI, "\n\n")
  } else {}
  if(show.ARI.simple){
    cat("\nAutomated Readability Index (ARI)\n")
    cat("  Parameters:", prt.ARI.simple.flavour, "\n")
    cat("       Index:", prt.ARI.simple, "\n\n")
  } else {}

  if(show.Bormuth){
    cat("\nBormuth Mean Cloze\n")
    cat("  Parameters:", prt.Bormuth.flavour, "\n")
    cat("  Fam. words: ", prt.Bormuth.pct.fam, "%\n", sep="")
    cat("  Mean Cloze:", prt.Bormuth.MC, "\n")
    if(!is.na(prt.Bormuth.grade)){
    cat("       Grade:", prt.Bormuth.grade, "\n")
    } else {}
    cat("\n")
  } else {}

  if(show.Coleman){
    cat("\nColeman Formulas\n")
    cat("  Parameters:", prt.Coleman.flavour, "\n")
    if(!is.na(prt.Coleman.pron)){
    cat("    Pronouns:", prt.Coleman.pron, "(per 100 words)\n")
    } else {}
    if(!is.na(prt.Coleman.prep)){
    cat("     Prepos.:", prt.Coleman.prep, "(per 100 words)\n")
    } else {}
    if(!is.na(prt.Coleman.C1)){
    cat("   Formula 1: ", prt.Coleman.C1, "% cloze completions\n", sep="")
    } else {}
    if(!is.na(prt.Coleman.C2)){
    cat("   Formula 2: ", prt.Coleman.C2, "% cloze completions\n", sep="")
    } else {}
    if(!is.na(prt.Coleman.C3)){
    cat("   Formula 3: ", prt.Coleman.C3, "% cloze completions\n", sep="")
    } else {}
    if(!is.na(prt.Coleman.C4)){
    cat("   Formula 4: ", prt.Coleman.C4, "% cloze completions\n", sep="")
    } else {}
    cat("\n")
  } else {}

  if(show.Coleman.Liau){
    cat("\nColeman-Liau\n")
    cat("  Parameters:", prt.Coleman.Liau.flavour, "\n")
    if(!is.na(prt.Coleman.Liau.grade)){
    cat("         ECP: ", prt.Coleman.Liau.ECP, "% (estimted cloze percentage)\n", sep="")
    cat("       Grade:", prt.Coleman.Liau.grade, "\n")
    } else {}
    if(!is.na(prt.Coleman.Liau.short)){
    cat("       Grade:", prt.Coleman.Liau.short, "(short formula)\n")
    } else {}
    cat("\n")
  } else {}

  if(show.Dale.Chall){
    cat("\nDale-Chall Readability Formula\n")
    cat("  Parameters:", prt.Dale.Chall.flavour, "\n")
    cat(" Not on list: ", prt.Dale.Chall.pct, "%\n", sep="")
    cat("   Raw value:", prt.Dale.Chall.raw, "\n")
    cat("       Grade:", prt.Dale.Chall.grade, "\n")
    cat("         Age:", prt.Dale.Chall.age, "\n\n")
  } else {}
  if(show.Dale.Chall.PSK){
    cat("\nDale-Chall Readability Formula\n")
    cat("  Parameters:", prt.Dale.Chall.PSK.flavour, "\n")
    cat(" Not on list: ", prt.Dale.Chall.PSK.pct, "%\n", sep="")
    cat("   Raw value:", prt.Dale.Chall.PSK.raw, "\n")
    cat("       Grade:", prt.Dale.Chall.PSK.grade, "\n")
    cat("         Age:", prt.Dale.Chall.PSK.age, "\n\n")
  } else {}
  if(show.Dale.Chall.old){
    cat("\nDale-Chall Readability Formula\n")
    cat("  Parameters:", prt.Dale.Chall.old.flavour, "\n")
    cat(" Not on list: ", prt.Dale.Chall.old.pct, "%\n", sep="")
    cat("   Raw value:", prt.Dale.Chall.old.raw, "\n")
    cat("       Grade:", prt.Dale.Chall.old.grade, "\n")
    cat("         Age:", prt.Dale.Chall.old.age, "\n\n")
  } else {}

  if(show.Danielson.Bryan){
    cat("\nDanielson-Bryan\n")
    cat("  Parameters:", prt.Danielson.Bryan.flavour, "\n")
    if(!is.na(prt.DB1)){
    cat("         DB1:", prt.DB1, "\n")
    } else {}
    if(!is.na(prt.DB2)){
    cat("         DB2:", prt.DB2, "\n")
    } else {}
    if(!is.na(prt.DB2.grade)){
    cat("       Grade:", prt.DB2.grade, "\n")
    } else {}
    cat("\n")
  } else {}

  if(show.Dickes.Steiwer){
    cat("\nDickes-Steiwer's Handformel\n")
    cat("  Parameters:", prt.Dickes.Steiwer.flavour, "\n")
    cat("         TTR:", prt.Dickes.Steiwer.TTR, "\n")
    cat("       Score:", prt.Dickes.Steiwer.score, "\n\n")
  } else {}

  if(show.DRP){
    cat("\nDegrees of Reading Power\n")
    cat("         DRP:", prt.DRP.score, "\n\n")
  } else {}

  if(show.ELF){
    cat("\nEasy Listening Formula\n")
    cat("  Parameters:", prt.ELF.flavour, "\n")
    cat("      Exsyls:", prt.ELF.exsyls, "\n")
    cat("       Score:", prt.ELF.score, "\n\n")
  } else {}

  if(show.Farr.Jenkins.Paterson){
    cat("\nFarr-Jenkins-Paterson\n")
    cat("  Parameters:", prt.Farr.Jenkins.Paterson.flavour, "\n")
    cat("          RE:", prt.Farr.Jenkins.Paterson, "\n")
    cat("       Grade:", prt.Farr.Jenkins.Paterson.grade, "\n\n")
  } else {}
  if(show.Farr.Jenkins.Paterson.PSK){
    cat("\nFarr-Jenkins-Paterson\n")
    cat("  Parameters:", prt.Farr.Jenkins.Paterson.PSK.flavour, "\n")
    cat("       Grade:", prt.Farr.Jenkins.Paterson.PSK, "\n\n")
  } else {}

  if(show.Flesch){
    cat("\nFlesch Reading Ease\n")
    cat("  Parameters:", prt.Flesch.flavour, "\n")
    if(!is.na(prt.Flesch)){
    cat("          RE:", prt.Flesch, "\n")
    } else {}
    if(!is.na(prt.Flesch.grade)){
    cat("       Grade:", prt.Flesch.grade, "\n")
    } else {}
    if(!is.na(prt.Flesch.age)){
    cat("         Age:", prt.Flesch.age, "\n")
    } else {}
    cat("\n")
  } else {}
  if(show.Flesch.PSK){
    cat("\nFlesch-PSK Reading Ease\n")
    cat("  Parameters:", prt.Flesch.PSK.flavour, "\n")
    if(!is.na(prt.Flesch.PSK)){
    cat("          RE:", prt.Flesch.PSK, "\n")
    } else {}
    if(!is.na(prt.Flesch.PSK.grade)){
    cat("       Grade:", prt.Flesch.PSK.grade, "\n")
    } else {}
    if(!is.na(prt.Flesch.PSK.age)){
    cat("         Age:", prt.Flesch.PSK.age, "\n")
    } else {}
    cat("\n")
  } else {}
  if(show.Flesch.Brouwer){
    cat("\nFlesch-Brouwer Reading Ease (Leesindex, nl)\n")
    cat("  Parameters:", prt.Flesch.Brouwer.flavour, "\n")
    if(!is.na(prt.Flesch.Brouwer)){
    cat("          RE:", prt.Flesch.Brouwer, "\n")
    } else {}
    if(!is.na(prt.Flesch.Brouwer.grade)){
    cat("       Grade:", prt.Flesch.Brouwer.grade, "\n")
    } else {}
    if(!is.na(prt.Flesch.Brouwer.age)){
    cat("         Age:", prt.Flesch.Brouwer.age, "\n")
    } else {}
    cat("\n")
  } else {}
  if(show.Flesch.Szigriszt){
    cat("\nFlesch-Szigriszt Reading Ease (es)\n")
    cat("  Parameters:", prt.Flesch.Szigriszt.flavour, "\n")
    if(!is.na(prt.Flesch.Szigriszt)){
    cat("          RE:", prt.Flesch.Szigriszt, "\n")
    } else {}
    if(!is.na(prt.Flesch.Szigriszt.grade)){
    cat("       Grade:", prt.Flesch.Szigriszt.grade, "\n")
    } else {}
    if(!is.na(prt.Flesch.Szigriszt.age)){
    cat("         Age:", prt.Flesch.Szigriszt.age, "\n")
    } else {}
    cat("\n")
  } else {}
  if(show.Flesch.de){
    cat("\nFlesch.de Reading Ease\n")
    cat("  Parameters:", prt.Flesch.de.flavour, "\n")
    if(!is.na(prt.Flesch.de)){
    cat("          RE:", prt.Flesch.de, "\n")
    } else {}
    if(!is.na(prt.Flesch.de.grade)){
    cat("       Grade:", prt.Flesch.de.grade, "\n")
    } else {}
    if(!is.na(prt.Flesch.de.age)){
    cat("         Age:", prt.Flesch.de.age, "\n")
    } else {}
    cat("\n")
  } else {}
  if(show.Flesch.es){
    cat("\nFlesch.es Reading Ease\n")
    cat("  Parameters:", prt.Flesch.es.flavour, "\n")
    if(!is.na(prt.Flesch.es)){
    cat("          RE:", prt.Flesch.es, "\n")
    } else {}
    if(!is.na(prt.Flesch.es.grade)){
    cat("       Grade:", prt.Flesch.es.grade, "\n")
    } else {}
    if(!is.na(prt.Flesch.es.age)){
    cat("         Age:", prt.Flesch.es.age, "\n")
    } else {}
    cat("\n")
  } else {}
  if(show.Flesch.fr){
    cat("\nFlesch.fr Reading Ease\n")
    cat("  Parameters:", prt.Flesch.fr.flavour, "\n")
    if(!is.na(prt.Flesch.fr)){
    cat("          RE:", prt.Flesch.fr, "\n")
    } else {}
    if(!is.na(prt.Flesch.fr.grade)){
    cat("       Grade:", prt.Flesch.fr.grade, "\n")
    } else {}
    if(!is.na(prt.Flesch.fr.age)){
    cat("         Age:", prt.Flesch.fr.age, "\n")
    } else {}
    cat("\n")
  } else {}
  if(show.Flesch.nl){
    cat("\nFlesch.nl Reading Ease\n")
    cat("  Parameters:", prt.Flesch.nl.flavour, "\n")
    if(!is.na(prt.Flesch.nl)){
    cat("          RE:", prt.Flesch.nl, "\n")
    } else {}
    if(!is.na(prt.Flesch.nl.grade)){
    cat("       Grade:", prt.Flesch.nl.grade, "\n")
    } else {}
    if(!is.na(prt.Flesch.nl.age)){
    cat("         Age:", prt.Flesch.nl.age, "\n")
    } else {}
    cat("\n")
  } else {}

  if(show.Flesch.Kincaid){
    cat("\nFlesch-Kincaid Grade Level\n")
    cat("  Parameters:", prt.Flesch.Kincaid.flavour, "\n")
    cat("       Grade:", prt.Flesch.Kincaid.grade, "\n")
    cat("         Age:", prt.Flesch.Kincaid.age, "\n\n")
  } else {}

  if(show.FOG){
    cat("\nGunning Frequency of Gobbledygook (FOG)\n")
    cat("  Parameters:", prt.FOG.flavour, "\n")
    cat("       Grade:", prt.FOG, "\n\n")
  } else {}
  if(show.FOG.PSK){
    cat("\nGunning Frequency of Gobbledygook (FOG)\n")
    cat("  Parameters:", prt.FOG.PSK.flavour, "\n")
    cat("       Grade:", prt.FOG.PSK, "\n\n")
  } else {}
  if(show.FOG.NRI){
    cat("\nGunning Frequency of Gobbledygook (FOG)\n")
    cat("  Parameters:", prt.FOG.NRI.flavour, "\n")
    cat("       Grade:", prt.FOG.NRI, "\n\n")
  } else {}

  if(show.FORCAST){
    cat("\nFORCAST\n")
    cat("  Parameters:", prt.FORCAST.flavour, "\n")
    cat("       Grade:", prt.FORCAST.grade, "\n")
    cat("         Age:", prt.FORCAST.age, "\n\n")
  } else {}
  if(show.FORCAST.RGL){
    cat("\nFORCAST\n")
    cat("  Parameters:", prt.FORCAST.RGL.flavour, "\n")
    cat("       Grade:", prt.FORCAST.RGL.grade, "\n")
    cat("         Age:", prt.FORCAST.RGL.age, "\n\n")
  } else {}

  if(show.Fucks){
    cat("\nFucks' Stilcharakteristik\n")
    cat("       Score:", prt.Fucks.score, "\n")
    cat("       Grade:", prt.Fucks.grade, "\n\n")
  } else {}

  if(show.Gutierrez){
    cat("\nGuti\u00e9rrez F\u00f3rmula de Comprensibilidad\n")
    cat("       Score:", prt.Gutierrez.score, "\n\n")
  } else {}

  if(show.Harris.Jacobson){
    cat("\nHarris-Jacobson\n")
    cat("  Parameters:", prt.Harris.Jacobson.flavour, "\n")
    cat(" Not on list: ", prt.Harris.Jacobson.pct, "%\n", sep="")
    if(!is.na(prt.HJ1)){
    cat("        HJ 1:", prt.HJ1, "\n")
    } else {}
    if(!is.na(prt.HJ2)){
    cat("        HJ 2:", prt.HJ2, "\n")
    } else {}
    if(!is.na(prt.HJ3)){
    cat("        HJ 3:", prt.HJ3, "\n")
    } else {}
    if(!is.na(prt.HJ4)){
    cat("        HJ 4:", prt.HJ4, "\n")
    } else {}
    if(!is.na(prt.HJ5)){
    cat("        HJ 5:", prt.HJ5, "\n")
    } else {}
    cat("\n")
  } else {}

  if(show.Linsear.Write){
    cat("\nLinsear Write\n")
    cat("  Parameters:", prt.Linsear.Write.flavour, "\n")
    cat("  Easy words:", prt.Linsear.Write.easy, "\n")
    cat("  Hard words:", prt.Linsear.Write.hard, "\n")
    cat("       Grade:", prt.Linsear.Write, "\n\n")
  } else {}

  if(show.LIX){
    cat("\nL\u00e4sbarhetsindex (LIX)\n")
    cat("  Parameters:", prt.LIX.flavour, "\n")
    cat("       Index:", prt.LIX, "\n")
    cat("      Rating:", prt.LIX.rating, "\n")
    cat("       Grade:", prt.LIX.grade, "\n\n")
  } else {}

  if(show.Wiener.STF){
    cat("\nNeue Wiener Sachtextformeln\n")
    cat("  Parameters:", prt.Wiener.STF.flavour, "\n")
    if(!is.na(prt.WSTF1)){
    cat("       nWS 1:", prt.WSTF1, "\n")
    } else {}
    if(!is.na(prt.WSTF2)){
    cat("       nWS 2:", prt.WSTF2, "\n")
    } else {}
    if(!is.na(prt.WSTF3)){
    cat("       nWS 3:", prt.WSTF3, "\n")
    } else {}
    if(!is.na(prt.WSTF4)){
    cat("       nWS 4:", prt.WSTF4, "\n")
    } else {}
    cat("\n")
  } else {}

  if(show.RIX){
    cat("\nReadability Index (RIX)\n")
    cat("  Parameters:", prt.RIX.flavour, "\n")
    cat("       Index:", prt.RIX, "\n")
    cat("       Grade:", prt.RIX.grade, "\n\n")
  } else {}

  if(show.SMOG){
    cat("\nSimple Measure of Gobbledygook (SMOG)\n")
    cat("  Parameters:", prt.SMOG.flavour, "\n")
    cat("       Grade:", prt.SMOG.grade, "\n")
    cat("         Age:", prt.SMOG.age, "\n\n")
  } else {}
  if(show.SMOG.de){
    cat("\nSimple Measure of Gobbledygook (SMOG)\n")
    cat("  Parameters:", prt.SMOG.de.flavour, "\n")
    cat("       Grade:", prt.SMOG.de.grade, "\n")
    cat("         Age:", prt.SMOG.de.age, "\n\n")
  } else {}
  if(show.SMOG.C){
    cat("\nSimple Measure of Gobbledygook (SMOG)\n")
    cat("  Parameters:", prt.SMOG.C.flavour, "\n")
    cat("       Grade:", prt.SMOG.C.grade, "\n")
    cat("         Age:", prt.SMOG.C.age, "\n\n")
  } else {}
  if(show.SMOG.simple){
    cat("\nSimple Measure of Gobbledygook (SMOG)\n")
    cat("  Parameters:", prt.SMOG.simple.flavour, "\n")
    cat("       Grade:", prt.SMOG.simple.grade, "\n")
    cat("         Age:", prt.SMOG.simple.age, "\n\n")
  } else {}

  if(show.Spache){
    cat("\nSpache Formula\n")
    cat("  Parameters:", prt.Spache.flavour, "\n")
    cat(" Not on list: ", prt.Spache.pct, "%\n", sep="")
    cat("       Grade:", prt.Spache.grade, "\n\n")
  } else {}
  if(show.Spache.old){
    cat("\nSpache Formula\n")
    cat("  Parameters:", prt.Spache.old.flavour, "\n")
    cat(" Not on list: ", prt.Spache.old.pct, "%\n", sep="")
    cat("       Grade:", prt.Spache.old.grade, "\n\n")
  } else {}

  if(show.Strain){
    cat("\nStrain Index\n")
    cat("  Parameters:", prt.Strain.flavour, "\n")
    cat("       Index:", prt.Strain, "\n\n")
  } else {}

  if(show.Traenkle.Bailer){
    cat("\nTr\u00e4nkle-Bailer Formulas\n")
    cat("   Parameters:", prt.Traenkle.Bailer.flavour, "\n")
    cat(" Prepositions: ", prt.Traenkle.Bailer.pct.prep, "%\n", sep="")
    cat(" Conjunctions: ", prt.Traenkle.Bailer.pct.conj, "%\n", sep="")
    cat("         TB 1:", prt.Traenkle.Bailer.TB1, "\n")
    cat("         TB 2:", prt.Traenkle.Bailer.TB2, "\n\n")
  } else {}

  if(show.TRI){
    cat("\nKuntzsch's Text-Redundanz-Index\n")
    cat("  Parameters:", prt.TRI.flavour, "\n")
    cat(" Short words:", prt.TRI.words, "\n")
    cat(" Punctuation:", prt.TRI.punct, "\n")
    cat("     Foreign:", prt.TRI.foreign, "\n")
    cat("       Score:", prt.TRI.score, "\n\n")
  } else {}


  if(show.Tuldava){
    cat("\nTuldava's Text Difficulty Formula\n")
    cat("  Parameters:", prt.Tuldava.flavour, "\n")
    cat("       Index:", prt.Tuldava.index, "\n\n")
  } else {}

  if(show.Wheeler.Smith){
    cat("\nWheeler-Smith\n")
    cat("  Parameters:", prt.Wheeler.Smith.flavour, "\n")
    cat("       Score:", prt.Wheeler.Smith.score, "\n")
    cat("       Grade:", prt.Wheeler.Smith.grade, "\n\n")
  } else {}
  if(show.Wheeler.Smith.de){
    cat("\nWheeler-Smith\n")
    cat("  Parameters:", prt.Wheeler.Smith.de.flavour, "\n")
    cat("       Score:", prt.Wheeler.Smith.de.score, "\n")
    cat("       Grade:", prt.Wheeler.Smith.de.grade, "\n\n")
  } else {}


   if(length(slot(object, "lang")) > 0){
     cat("Text language:", slot(object, "lang"), "\n")
   } else {}

})