title: Progress bar in R shiny for loop
body: <p>I am having trouble getting a progress bar to work with the selectInput function in shiny.  It gives the progress of the data the user selects loading to the page, but not the app executing the loop of what it is supposed to do with the data.  This is what I have so far:  </p>
  
  <pre><code>ui &lt;- fluidPage(  
    titlePanel("Upload Files"),  
    sidebarLayout(  
      sidebarPanel(  
        fileInput("upload", "Select Files",  
                  multiple = TRUE,  
                  accept = c("text/csv",  
                             "text/comma-separated-values,text/plain"))  
      ),  
      mainPanel(  
        tableOutput("table")  
      )  
    )  
  )  
  
  server &lt;- function(input, output) {  
    observeEvent(input$upload, {for (i in 1:length(input$upload$datapath)) {  *code to execute*  
  }})  
  output$table &lt;- renderTable(  
  print(input$upload$name))  
  }  
  shinyApp(ui,server)
  </code></pre>