# NOT RUN {
if (interactive()) {
library(shiny)
library(gentelellaShiny)
shinyApp(
ui = gentelellaPageCustom(
gentelellaBody(
box(
width = 3,
title = "Progress Bars",
progressBar(
20,
side = "left",
status = "danger",
striped = FALSE
),
progressBar(
70,
side = "right",
color = "purple",
striped = TRUE
)
)
)
),
server <- function(input, output) {}
)
}
# }
Run the code above in your browser using DataLab