r - ShinyServer にかかった時間を測定して表示する方法は?

Question

shinyServer(function(input, output){} 生成されたページのセッションごとに、光沢のあるサーバーの実行にかかった時間を測定して表示したいと思います。

そうする私の素朴な方法は次のとおりです。

shinyServer(function(input, output){
  startTime <- proc.time()
  ...
  output$a <- renderPrint({
        print(do.a())
  })
  output$b <- renderPrint({
        print(do.b())
  })
  ...
  stopTime <- proc.time()

  output$timeTaken <- renderPrint({
    stopTime - startTime
  })

おそらくその間のコードの遅延評価が原因で、間違った値が返されます。

それを適切に行うにはどうすればよいですか？