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
  })

这给了我错误的价值，可能是由于对中间代码的懒惰评估。

那如何正确地做呢？