withProgress function - Multiple bars

[Ninja2112]

Hello...
I'd like to know if is possible to render at the same time multiple bars using this function 'withProgress' associated to 'incProgress'....How can I do that ? Could somebody show me an example ?
Thanks

[nirgrahamuk]

library(shiny)

ui <- fluidPage(
  actionButton("start","start"),
  tableOutput("t1")
)

server <- function(input, output, session) {
 
  output$t1 <- renderTable({
    req(input$start)
    withProgress(message = 'Outer Calculation in progress',
                 detail = 'This may take a while...', value = 0, {
                   for (i in 1:2) {
                     withProgress(message = 'Inner Calculation in progress',
                                  detail = 'This may take a while...', value = 0, {
                                    for (i in 1:10) {
                                      incProgress(1/10)
                                      Sys.sleep(0.05)
                                    } 
                                  })
                     incProgress(1/2)
                     Sys.sleep(0.25)
                   } 
                 })
    data.frame(x=1)
    
  })
  
}

shinyApp(ui, server)

[Ninja2112]

Thanks, man....just one question: Following this example, the incProgress function goes only inside "Inner Calculation" or it is possible inside "Outer Calculation" as well ?

[nirgrahamuk]

Look again. Its there at both levels