spsTitle: Colorful title element

In spsComps: 'systemPipeShiny' UI and Server Components

Colorful title element

Description

Add a title element to UI

Usage

spsTitle(
  title,
  level = "2",
  status = "info",
  other_color = NULL,
  opacity = 1,
  ...
)

tabTitle(
  title,
  level = "2",
  status = "info",
  other_color = NULL,
  opacity = 1,
  ...
)

Arguments

title	string, title text
level	string, level of the title, the larger, the bigger, one of "1", "2", "3", "4", "5", "6"
status	string, one of "primary", "info", "success", "warning", "danger". This determines the color of the line.
other_color	string, if you do not like the default 5 status colors, specify a valid CSS color here. If this is provided, status will be ignored.
opacity	numeric, a number larger than 0 smaller than 1
...	other attributes and children add to this element

Value

returns a shiny tag

Examples

if(interactive()) {
  library(shiny)
  library(magrittr)
  ui <- fluidPage(
    tags$b("Different status"),
    c("primary", "info", "success", "warning", "danger") %>%
      lapply(function(x) spsTitle(x, "4", status = x)),
    tags$b("custom color"),
    spsTitle("purple", "4", other_color = "purple"),
    spsTitle("pink", "4", other_color = "pink"),
    tags$b("Different levels"),
    lapply(as.character(1:6), function(x) spsTitle(paste0("H", x), x)),
    tags$b("Different opacity"),
    lapply(seq(0.2, 1, 0.2), function(x) spsTitle(as.character(x), opacity = x))
  )
  server <- function(input, output, session) {}
  shinyApp(ui, server)
}

spsComps documentation built on July 26, 2023, 5:39 p.m.