R/UIkitBadge.R

In DivadNojnarg/shinyUIkit: 'shiny' API for the 'UIkit' Web Framework

#' Create an UIkit badge
#'
#' Build an UIkit badge.
#' 
#' @param content Badge Text. Avoid large text.
#'
#' @examples
#' if(interactive()){
#' library(shiny)
#' 
#' shiny::shinyApp(
#'  ui = UIkitPage(
#'    title = "My UIkit application",
#'    UIkitBadge(content = 100)
#'  ),
#'  server = function(input, output) {}
#'  )
#' }
#' 
#' @author David Granjon, \email{dgranjon@@ymail.com}
#'
#' @export
UIkitBadge <- function(content) {
  stopifnot(!is.null(content))
  shiny::tags$span(class = "uk-badge", content)
}