R/get_kable.R

In thierrycnam/igfuns: Analyzes of Ig sequencing data

#' get_kable
#'
#' Get a beautiful table using kableExtra
#'
#' @param df_1 dataframe or table
#'
#' @return html table
#' @export
#' @importFrom kableExtra kable kable_styling
#'
#' @examples
#' get_kable(bregs)
get_kable <- function(df_1) {
  df_1 %>%
    kable() %>%
    kable_styling("striped")
}