inst/custom-handlers/renderUI-delay/app.R

In DivadNojnarg/outstanding-shiny-ui-code: Standalone Code for "Outstanding Shiny User Interfaces"

library(shiny)
ui <- fluidPage(
  uiOutput("moreControls")
)

server <- function(input, output) {

  sliderValue <- reactive({
    # computationally intensive task
    Sys.sleep(3)
    1
  })

  output$moreControls <- renderUI({
    sliderInput("n", "N", sliderValue(), 1000, 500)
  })
}
shinyApp(ui, server)