View source: R/bulma-buttonBadge.R
| bulmaButtonBadge | R Documentation | 
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
)
label | 
 button label.  | 
url | 
 The url of the button.  | 
color | 
 Color of the button :   | 
style | 
 Style of the button :    | 
loading | 
 if the button is loading or not.  | 
size | 
 Size of the button :   | 
badge_color | 
 Color of the button :   | 
badge_style | 
 Style of the button :    | 
badge_size | 
 Size of the button :   | 
badge_position | 
 Position of the badge :   | 
badge_text | 
 Badge content: avoid too large content (a number is better).  | 
David Granjon, dgranjon@ymail.com
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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.