bulma badge components

Create a badge to highlight a given element https://wikiki.github.io/elements/badge/.

bulmaBadge(
  ...,
  color = NULL,
  size = NULL,
  style = NULL,
  position = NULL,
  badge_text = NULL
)

Arguments

...	Any element where the badge will be stuck.
color	Badge color : link, info, primary, warning, danger, success, black, dark and ligth.
size	Badge size : small, medium and large.
style	Badge style : outlined. NULL by default
position	Badge position : left, bottom-left and bottom. When NULL, it is displayed on the right side 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(
 br(), br(),
 bulmaColumns(
  bulmaColumn(
   width = 2,
   bulmaBadge(
    "test",
    position = "",
    size = NULL,
    style = NULL,
    color = NULL,
    badge_text = 3
   ),

   br(), br(),

   bulmaBadge(
     "test",
     position = "bottom",
     size = NULL,
     style = NULL,
     color = NULL,
     badge_text = 3
   ),

   br(), br(),

   bulmaBadge(
     "test",
     position = "bottom-left",
     size = NULL,
     style = NULL,
     color = NULL,
     badge_text = 3
   )
   ),
   bulmaColumn(
     width = 2,
     bulmaBadge(
       "test",
       position = NULL,
       size = "small",
       style = NULL,
       color = NULL,
       badge_text = 3
     ),

     br(), br(),

     bulmaBadge(
       "test",
       position = NULL,
       size = "medium",
       style = NULL,
       color = NULL,
       badge_text = 3
     ),

     br(), br(),

     bulmaBadge(
       "test",
       position = NULL,
       size = "large",
       style = NULL,
       color = NULL,
       badge_text = 3
     )
   ),
   bulmaColumn(
     width = 2,
     bulmaBadge(
       "test",
       position = NULL,
       size = NULL,
       style = "outlined",
       color = "info",
       badge_text = 3
     ),

     br(), br(),

     bulmaBadge(
       "test",
       position = NULL,
       size = NULL,
       style = NULL,
       color = "warning",
       badge_text = 3
     ),

     br(), br(),

     bulmaBadge(
       "test",
       position = NULL,
       size = NULL,
       style = NULL,
       color = "danger",
       badge_text = 3
     ),

     br(), br(),

     bulmaBadge(
       "test",
       position = NULL,
       size = NULL,
       style = NULL,
       color = "success",
       badge_text = 3
     )
    )
   )
  )
 )

 server <- function(input, output, session) {}

 shinyApp(ui = ui, server = server)
}