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