R/themes.R

In rtabulator: R Bindings for 'Tabulator JS'

read_tabulator_theme <- function(
    theme = c("midnight", "modern", "simple", "site", "bootstrap3", "bootstrap4", "bootstrap5", "bulma", "materialize", "semanticui")) {
  theme <- match.arg(theme)
  file_name <- system.file(
    glue::glue("htmlwidgets/libs/tabulator/tabulator_{theme}.min.css"),
    package = "rtabulator"
  )
  return(readr::read_file(file_name))
}