R/Rkable.R

In EccRiley/Riley: Riley: A working R-library of functions, data, color palettes (etc.) for everyday, and not-so-everyday, R tasks.

Rkable <- function (x, ..., format = Rkable_format(), 
    fixed_thead_enabled = TRUE, fixed_thead_bg = "#EEEFF1", 
    full_width = FALSE, 
    condensed = TRUE, 
    responsive = TRUE, 
    hover = TRUE,
    latex_options = NULL, 
    protect_latex = TRUE,
    htmltable_class = "lightable-classic",
    html_font = "\"Lato\"",
    lightable_options = c("hover")) 
{
    library(knitr)
    library(kableExtra)
    bo <- names(which(
        c("condensed" = condensed, "responsive" = responsive, "hover" = hover)
    ))
    
kable_paper(kable_styling(kbl(x, format = format, ...), full_width = full_width, 
        bootstrap_options = bo, 
        latex_options = latex_options, 
        fixed_thead = list(enabled = fixed_thead_enabled, background = fixed_thead_bg), 
        protect_latex = protect_latex,
        htmltable_class = htmltable_class), 
        html_font = html_font)
}