R一步一步地处理时间

Question

在我的长R脚本中，我想了解每行的处理时间。要做到这一点，我正在使用

foo1 = sys.time()
foo <- function(x){
   t1 = sys.time()
   y=x*x
   t2 = sys.time(); t2-t1
   for (i in 1:10)
       {z=y*y}
   sys.time()-t2
   # and so on
}
Sys.time()-foo1

这是非常麻烦的方法，不适合大型代码。如何通过行号来获取函数的每个步骤/行的时间？