# This will affect default actionButton()
bs4dash_button(
default_background_color = "#FF0000",
default_color = "#3ADF00",
default_border_color = "#3ADF00"
)
if (interactive()) {
library(shiny)
library(bs4Dash)
ui <- bs4DashPage(
title = "bs4Dash Custom Colors",
navbar = bs4DashNavbar(),
sidebar = bs4DashSidebar(),
body = bs4DashBody(
use_theme(create_theme(
bs4dash_button(
default_background_color = "#FF0000",
default_color = "#3ADF00",
default_border_color = "#3ADF00"
)
)),
actionButton(
"btn",
"An action button",
icon("rocket")
)
)
)
server <- function(input, output) {
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab