R/nice_table_html.R

In epongpipat/eepR: Common Functions that I Use Regularly

Defines functions nice_table_html

Documented in nice_table_html

#' @title nice_table_html
#'
#' @param table
#'
#' @return
#' @export
#' @import kableExtra
#' @examples
nice_table_html <- function(table) {
  nice_table(table) %>%
    scroll_box(width = "100%")
}