Create a button with a badge https://wikiki.github.io/elements/badge/.

bulmaButtonBadge(
  label = NULL,
  url = NULL,
  color = NULL,
  style = NULL,
  loading = FALSE,
  size = NULL,
  badge_color = NULL,
  badge_style = NULL,
  badge_size = NULL,
  badge_position = NULL,
  badge_text = NULL
)

Arguments

label

button label.

url

The url of the button.

color

Color of the button : link, info, primary, warning, danger, success, black, dark and ligth.

style

Style of the button : outlined.

loading

if the button is loading or not.

size

Size of the button : small,medium and large.

badge_color

Color of the button : link, info, primary, warning, danger, success, black, dark and ligth.

badge_style

Style of the button : outlined.

badge_size

Size of the button : small,medium and large.

badge_position

Position of the badge : left, bottom-left and bottom. Right by default.

badge_text

Badge content: avoid too large content (a number is better).

Author

David Granjon, dgranjon@ymail.com

Examples

if (interactive()) { library(shiny) ui <- bulmaPage( bulmaContainer( bulmaColumns( bulmaColumn( width = 2, bulmaButtonBadge(label = "test", url = "http://google.com", color = "danger", style = NULL, loading = FALSE, size = NULL, badge_color = "warning", badge_style = NULL, badge_size = NULL, badge_position = NULL, badge_text = 1 ), br(), br(), bulmaButtonBadge(label = "test", url = NULL, color = "warning", style = "outlined", loading = FALSE, size = "small", badge_color = "info", badge_style = NULL, badge_size = NULL, badge_position = NULL, badge_text = 2 ), br(), br(), bulmaButtonBadge(label = "test", url = NULL, color = "success", style = NULL, loading = FALSE, size = "medium", badge_color = "danger", badge_style = NULL, badge_size = NULL, badge_position = NULL, badge_text = 3 ) ), bulmaColumn( width = 2, bulmaButtonBadge(label = "test", url = NULL, color = "black", style = "outlined", loading = FALSE, size = "large", badge_color = NULL, badge_style = NULL, badge_size = NULL, badge_position = NULL, badge_text = 4 ), br(), br(), bulmaButtonBadge(label = "test", url = NULL, color = "info", style = NULL, loading = FALSE, size = NULL, badge_color = "success", badge_style = NULL, badge_size = "small", badge_position = NULL, badge_text = 5 ), br(), br(), bulmaButtonBadge(label = "test", url = NULL, color = NULL, style = "outlined", loading = FALSE, size = NULL, badge_color = "warning", badge_style = NULL, badge_size = "medium", badge_position = "left", badge_text = 6 ) ), bulmaColumn( width = 2, bulmaButtonBadge(label = "test", url = NULL, color = NULL, style = "primary", loading = TRUE, size = NULL, badge_color = NULL, badge_style = "outlined", badge_size = "large", badge_position = "botton", badge_text = NULL ) ) ) ) ) server <- function(input, output, session) { } shinyApp(ui = ui, server = server) }