Testing progress bar for shiny app.

server.R

library(shiny)

shinyServer(function(input, output) {
  
  output$intense <- reactivePrint(function() {
    if(input$panel==2){
      Sys.sleep(10)
      return('Finished')
    }else({return(NULL)})
  })
  
})

timer.js

<script type="text/javascript">
var wasBusy = false;
var elapsedTimer = null;
var startTime = null;
function updateBusy() {
  var isBusy = $('html').hasClass('shiny-busy');
  if (isBusy && !wasBusy) {
    startTime = new Date().getTime();
    elapsedTimer = setInterval(function() {
      var millisElapsed = new Date().getTime() - startTime;
      $('progress').text(Math.round(millisElapsed/1000) + ' seconds have elapsed');
    }, 1000);
  }
  else if (!isBusy && wasBusy) {
    clearInterval(elapsedTimer);
  }
  wasBusy = isBusy;
}
</script>

ui.R

library(shiny)

shinyUI(pageWithSidebar(
  
  # Application title
  headerPanel("Testing..."),
  
  sidebarPanel(
    helpText("Panel compute is where I wish for a 'progress bar' to show how much
             time has elapsed.")
  ),

  mainPanel(
    
    tabsetPanel(
      tabPanel("Start",value=1),
      tabPanel("Compute", list(
        ### show timer
        div(id='progress',includeHTML("timer.js")),
        ### long function
        verbatimTextOutput("intense")),
      value=2),id='panel')
    
  )
  
))

does not work