bulma Button Badge

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)

}