## Not run:
# # server.R
# shinyServer(function(input, output) {
# output$plot <- renderPlot({
# withProgress(message = 'Calculation in progress',
# detail = 'This may take a while...', value = 0, {
# for (i in 1:15) {
# incProgress(1/15)
# Sys.sleep(0.25)
# }
# })
# plot(cars)
# })
# })
# ## End(Not run)
Run the code above in your browser using DataLab