#' 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")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.