R/utils-deps.R

In rstudio/bootstraplib: Custom 'Bootstrap' 'Sass' Themes for 'shiny' and 'rmarkdown'

component_dependencies <- function() {
  list(
    component_dependency_js(),
    bs_dependency_defer(component_dependency_sass)
  )
}

component_dependency_js <- function() {
  minified <- get_shiny_devmode_option("shiny.minified", default = TRUE)

  htmlDependency(
    name = "bslib-component-js",
    version = get_package_version("bslib"),
    package = "bslib",
    src = "components/dist",
    script = list(
      list(src = paste0("components", if (minified) ".min", ".js")),
      list(
        src = paste0("web-components", if (minified) ".min", ".js"),
        type = "module"
      )
    )
  )
}

# Pre-compiled component styles
component_dependency_css <- function() {
  htmlDependency(
    name = "bslib-component-css",
    version = get_package_version("bslib"),
    package = "bslib",
    src = "components/dist",
    stylesheet = "components.css"
  )
}

# Run-time (Sass) component styles
component_dependency_sass <- function(theme) {
  precompiled <- isTRUE(get_precompiled_option())
  default_theme <- !is_bs_theme(theme) || identical(theme, bs_theme())
  if (precompiled && default_theme) {
    component_dependency_css()
  } else {
    component_dependency_sass_(theme)
  }
}

component_dependency_sass_files <- function() {
  scss_dir <- path_inst("components", "scss")
  scss_files <- c(
    file.path(scss_dir, "mixins", "_mixins.scss"),
    dir(scss_dir, pattern = "\\.scss$", full.names = TRUE)
  )

  lapply(scss_files, sass_file)
}

component_dependency_sass_ <- function(theme) {
  # Although rare, it's possible for bs_dependency_defer() to pass
  # along a NULL theme (e.g., renderTags(accordion())), so fallback
  # to the default theme if need be
  theme <- theme %||% bs_theme()

  if (theme_version(theme) < 5) {
    abort(c(
      "bslib components require Bootstrap 5 or higher.",
      "i" = "Do you need to specify a different `version` in `bs_theme()`?"
    ))
  }

  bs_dependency(
    input = component_dependency_sass_files(),
    theme = theme,
    name = "bslib-component-css",
    version = get_package_version("bslib"),
    cache_key_extra = get_package_version("bslib"),
    .sass_args = list(options = sass_options(output_style = "compressed"))
  )
}


web_component <- function(tagName, ...) {
  deps <- component_dependencies()
  args <- c(deps, rlang::list2(...))
  htmltools::tag(tagName, args)
}