Description Usage Arguments Value Examples
These variables allow to customize color used if
contrast between a color and its background is under threshold.
For example, it's used to choose text color written in bs4ValueBox
with background defined by a status.
1 | bs4dash_yiq(contrasted_threshold = NULL, text_dark = NULL, text_light = NULL)
|
contrasted_threshold |
The yiq lightness value that determines when the lightness of color changes from "dark" to "light". Acceptable values are between 0 and 255. |
text_dark |
Dark text color. |
text_light |
Light text color. |
a list
that can be used in create_theme
.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 | # Contrast colors
bs4dash_yiq(
contrasted_threshold = 150,
text_dark = "#007bff", # blue
text_light = "#dc3545" # red
)
if (interactive()) {
library(shiny)
library(bs4Dash)
ui <- bs4DashPage(
title = "bs4Dash Contrast",
navbar = bs4DashNavbar(),
sidebar = bs4DashSidebar(),
body = bs4DashBody(
use_theme(create_theme(
bs4dash_yiq(
contrasted_threshold = 180,
text_dark = "#000",
text_light = "#dc3545"
)
)),
fluidRow(
bs4ValueBox(
value = 120,
subtitle = "ValueBox with primary status",
status = "primary",
icon = "shopping-cart",
href = "#",
width = 4
),
bs4ValueBox(
value = 150,
subtitle = "ValueBox with danger status",
status = "danger",
icon = "shopping-cart",
href = "#",
width = 4
)
)
)
)
server <- function(input, output) {
}
shinyApp(ui, server)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.