#' Fortify contingency tables
#'
#' @param model the contingency table
#' @param data data (unused)
#' @param ... (unused)
#' @export
fortify.table <- function(model, data, ...) {
as_tibble(as.data.frame(model, stringsAsFactors=FALSE))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.