# NOT RUN {
if (interactive()) {
library(shiny)
library(bs4Dash)
shinyApp(
ui = bs4DashPage(
navbar = bs4DashNavbar(),
sidebar = bs4DashSidebar(),
body = bs4DashBody(
bs4Table(
cardWrap = TRUE,
bordered = TRUE,
striped = TRUE,
headTitles = c(
"PROJECT",
"BUDGET",
"STATUS",
"USERS",
"COMPLETION",
""
),
bs4TableItems(
bs4TableItem("bs4 Design System"),
bs4TableItem(dataCell = TRUE, "$2,500 USD"),
bs4TableItem(
dataCell = TRUE,
bs4Badge(
"Pending",
position = "right",
status = "danger",
rounded = TRUE
)
),
bs4TableItem(
progressBar(id = "pb1", value = 50, size = "xxs")
),
bs4TableItem(
dataCell = TRUE,
"test"
),
bs4TableItem(
actionButton(
"go",
"Go"
)
)
)
)
),
footer = bs4DashFooter()
),
server = function(input, output) { }
)
}
# }
Run the code above in your browser using DataLab