ThemeProvider | R Documentation |
For more details and examples visit the official docs. The R package can not handle each and every case, so for advanced use cases you need to work using the original docs to achieve the desired result.
Themes is not a component, but a way to override the default theme in the app. See https://developer.microsoft.com/en-us/fluentui#/controls/web/themes for details.
ThemeProvider(...)
... |
Props to pass to |
library(shiny) library(shiny.fluent) if (interactive()) { options <- list( list(key = "A", text = "Option A"), list(key = "B", text = "Option B") ) theme <- list( palette = list( themePrimary = "#8dd400", themeLighterAlt = "#060800", themeLighter = "#172200", themeLight = "#2a3f00", themeTertiary = "#557f00", themeSecondary = "#7cba00", themeDarkAlt = "#97d816", themeDark = "#a6de35", themeDarker = "#bce766", neutralLighterAlt = "#323130", neutralLighter = "#31302f", neutralLight = "#2f2e2d", neutralQuaternaryAlt = "#2c2b2a", neutralQuaternary = "#2a2928", neutralTertiaryAlt = "#282726", neutralTertiary = "#c8c8c8", neutralSecondary = "#d0d0d0", neutralPrimaryAlt = "#dadada", neutralPrimary = "#ffffff", neutralDark = "#f4f4f4", black = "#f8f8f8", white = "#323130" ) ) shinyApp( ui = ThemeProvider( theme = theme, applyTo = "body", Stack( tokens = list(childrenGap = "10px"), style = list(width = 250), PrimaryButton(text = "PrimaryButton"), Checkbox(label = "Checkbox"), ChoiceGroup(label = "ChoiceGroup", options = options) ) ), server = function(input, output) { } ) } if (interactive()) { options <- list( list(key = "A", text = "Option A"), list(key = "B", text = "Option B") ) # Use JSON created in Theme Designer # https://fabricweb.z5.web.core.windows.net/pr-deploy-site/refs/heads/master/theming-designer/ theme <- '{ "themePrimary": "#324f09", "themeLighterAlt": "#dfead1", "themeLighter": "#c4d7ab", "themeLight": "#abc388", "themeTertiary": "#92b069", "themeSecondary": "#7c9c4e", "themeDarkAlt": "#678937", "themeDark": "#547624", "themeDarker": "#426214", "neutralLighterAlt": "#f8ebce", "neutralLighter": "#f4e8cb", "neutralLight": "#eadec2", "neutralQuaternaryAlt": "#dacfb5", "neutralQuaternary": "#d0c5ad", "neutralTertiaryAlt": "#c8bea6", "neutralTertiary": "#595858", "neutralSecondary": "#373636", "neutralPrimaryAlt": "#2f2e2e", "neutralPrimary": "#000000", "neutralDark": "#151515", "black": "#0b0b0b", "white": "#fff2d4" }' shinyApp( ui = ThemeProvider( theme = parseTheme(theme), applyTo = "body", Stack( tokens = list(childrenGap = "10px"), style = list(width = 250), PrimaryButton(text = "PrimaryButton"), Checkbox(label = "Checkbox"), ChoiceGroup(label = "ChoiceGroup", options = options) ) ), server = function(input, output) { } ) }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.