example/app.R

In lawrencecrane/shiny.whirligig: Add load spinner to Shiny UI elements

library(shiny)
library(magrittr)
library(shiny.whirligig)

ui <- fluidPage(
  uiOutput(outputId = 'example',
           width = '100wv',
           height = '100vh') %>% withWhirligig
)

server <- function(input, output) {
  output$example <- renderUI({
    Sys.sleep(10)

    tags$p('Hello from the otherside!')
  })
}

app <- shinyApp(ui = ui, server = server)