View source: R/bulma-loading.R
bulmaLoading | R Documentation |
Show loading page
bulmaLoading(title = "Loading", class = NULL)
title |
Title of loading page. |
class |
Any additional class. |
John Coene, jcoenep@gmail.com
if(interactive()){ ui <- bulmaPage( bulmaTitle("Loader"), bulmaSliderInput("slider", 50, 5, 100, step = 5), bulmaLoading(), bulmaContainer( plotOutput("plot") ) ) server <- function(input, output){ data <- reactive({ rnorm(input$slider, 10, 5) }) output$plot <- renderPlot({ hist(data()) }) } shiny::shinyApp(ui, server) }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.