if (interactive()) {
card(
shiny::h2("Submit buttons with various styles"),
header = FALSE,
shiny::div(submitButton("Submit button with primary color",
icon = shiny::icon("file"), size = "s", bg.type = "primary"
)),
shiny::div(submitButton("Secondary color",
icon = shiny::icon("folder"), bg.type = "secondary"
)),
shiny::div(submitButton("Success color",
icon = shiny::icon("filter"), bg.type = "success"
)),
shiny::div(submitButton("Warning color",
icon = shiny::icon("grid"), bg.type = "warning"
)),
shiny::div(submitButton("Danger color",
icon = shiny::icon("check"), bg.type = "danger"
)),
shiny::div(submitButton("Info color",
icon = shiny::icon("trash"), bg.type = "info"
))
)
}
Run the code above in your browser using DataLab