Brand <head> tags for a Shiny app — cc_brand

Everything the contract puts in <head>: the page <title>, the app-scale meta (<meta name="cc-scale" content="app"> — brand v2's compact scale), the CalCOFI favicon set, the font preloads, the inline pre-paint theme snippet, fonts.css, theme.css, theme.js, the bslib bridge (see the source header), and — if ga_app is given — the analytics snippet via cc_ga_head().

Usage

cc_brand_head(
  title = NULL,
  ga_app = NULL,
  ...,
  brand_url = .CC_BRAND_URL,
  scale = c("app", "page")
)

Arguments

title: the browser-tab title (NULL to leave the app's own)
ga_app: app slug for cc_ga_head(); NULL for no analytics
...: passed to cc_ga_head()
brand_url: where the assets live; the default is the only value a published app should use
scale: "app" (the default for a Shiny app) or "page" (the reading scale: larger type and spacing)

Value

a htmltools::tagList() for tags$head()

Examples

if (FALSE) { # \dontrun{
ui <- function(request) bslib::page_fillable(
  tags$head(cc_brand_head("CalCOFI CTD Explorer", ga_app = "ctd-viz")),
  cc_brand_header("CTD Explorer", mode = cc_theme(request)),
  ...)
} # }