R/print.comp_prop.R

In feranpre/feR: Basic functions that I use all the time

#' @export
print.feR.comp_prop <- function(x){

  # print(class(x))


  passed.args.list <-  names(attributes(x))
  passed.args <- list()
  for (p in passed.args.list) {
    passed.args[[p]] <- attr(x,p)
  }
  args <- formals(compare)
  final.args <- as.list(modifyList(args, passed.args))
  final.args <- append(final.args,attributes(x)[!(passed.args.list %in% names(final.args))])



  if (final.args$SHOW.DESCRIPTIVES) {
    if("END.RECURSION" %in% names(attributes(x))) {
      #... x viene de al menos una llamada a FABLE
    }
    fd <- .fable(final.args$DESC, END.RECURSION = TRUE)
    print(fd)
    cat("\n \n \n \n ")

  }

  ft <- .fable(x, rownames = F, END.RECURSION = TRUE)

  print(ft)

}