# NOT RUN {
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) { }
)
}
# }
Run the code above in your browser using DataLab