bs4Ribbon(
  text,
  status = c("primary", "danger", "success", "warning", "info", "secondary"),
  size = NULL
)

if (interactive()) {
 library(shiny)
 library(bs4Dash)
 shinyApp(
  ui = bs4DashPage(
    navbar = bs4DashNavbar(), 
    sidebar = bs4DashSidebar(),
    body = bs4DashBody(
     fluidRow(
      bs4Box(
       width = 4,
       title = "Normal ribbon",
       bs4Ribbon(
        text = "New",
        status = "primary"
       )
      ),
      bs4Box(
       width = 4,
       title = "Large ribbon",
       bs4Ribbon(
        text = "New",
        status = "secondary",
        size = "lg"
       )
      ),
      bs4Box(
       width = 4,
       title = "XLarge ribbon",
       bs4Ribbon(
        text = "New",
        status = "danger",
        size = "xl"
       )
      )
     )
    ), 
    footer = bs4DashFooter()
  ),
  server = function(input, output) { }
 )
}