R/pretty_tab.R

In elinw/lehmansociology: Tools for Sociology Students Using R

#' Print a crosstab nicely in PDF or HTML
#'
#' @param ctab crossstab object as produced by lehmansociology::crosstab
#'
#' @keywords crosstab, print
#' @export

pretty_tab<-function(ctab){
    require(pander)
    pander(ctab$tab, keep.line.breaks = TRUE, justify = "right")

}