R/print.crosstab.R

In SOC345/lehmansociology: Tools for Sociology Students Using R

#' Print crosstab results from crosstab()
#'
#' This function controls printing for class crosstab. It is the
#' same as print.data.frame except that row.names defaults to FALSE and
#' right defaults to FALSE. It also adds a title if this
#' was created when the frequencytable was created.
#' @param x The object to be printed.
#' @param row.names indicates if the row.names or numbers should be printed.
#' @param right Is a logical indicating if the values should be right aligned.
#' @param quote indicates if the string values should be returned enclosed in quotation marks.
#' @keywords data frequency count percent
#' @export


print.crosstab <- function (ctab, ..., digits = NULL, quote = FALSE, right = FALSE,
          row.names = FALSE, dnames)
{
    title <- ctab[["title"]]
    ncases <- ctab[["n"]]
    x <- ctab[["tab"]]
    n<-nrow(ctab[["tab"]])

    # This is from the table print function.
    if (length(x) == 0L) {
        cat(sprintf(ngettext(n, "data frame with 0 columns and %d row",
                             "data frame with 0 columns and %d rows"), n),
            "\n",
            sep = "")
    }
    else if (is.null(n) | n == 0L) {
        print.default(names(x), quote = FALSE)
        cat(gettext("No rows present in table"))
    }
    else {
        m <- as.matrix(format.data.frame(x, digits = digits,
                                         na.encode = FALSE))
        if (title != ""){
            title<-cat(title, sep ="\n")
            title
        } else {
            print(ctab$formula)
        }
        print(m, ..., quote = quote, right = right)
    }
    invisible(x)
}