如何测量和显示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
  })

这给了我错误的价值，可能是因为对它们之间的代码进行了懒惰的评估。

如何妥善处理？