if (interactive()) {
library(shiny)
library(bs4Dash)
shinyApp(
ui = dashboardPage(
header = dashboardHeader(),
sidebar = dashboardSidebar(),
body = dashboardBody(
fluidRow(
box(
width = 4,
title = "Blue ribbon",
bs4Ribbon(
text = "New",
color = "primary"
)
),
box(
width = 4,
title = "Purple ribbon",
bs4Ribbon(
text = "New",
color = "indigo"
)
),
box(
width = 4,
title = "Orange ribbon",
bs4Ribbon(
text = "New",
color = "orange"
)
)
)
),
footer = dashboardFooter()
),
server = function(input, output) { }
)
}
Run the code above in your browser using DataLab