Description Usage Arguments Examples
View source: R/paper_progress.R
Title
1 2 3 4 5 6 | paper_progress(
progression,
label = paste0(progression, "%"),
style = "primary",
striped = TRUE
)
|
style |
1 2 3 4 5 6 7 8 9 10 11 12 13 | if (interactive()) {
ui <- fluidPage(
paperize(),
paper_progress(progression = 50),
paper_progress(progression = 50, style = "success"),
paper_progress(progression = 50, style = "danger"),
paper_progress(progression = 50, style = "secondary")
)
server <- function(input, output) {}
shinyApp(ui = ui, server = server)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.