Show loading page

Show loading page

bulmaLoading(title = "Loading", class = NULL)

Arguments

title	Title of loading page.
class	Any additional class.

Author

John Coene, jcoenep@gmail.com

Examples

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)
}