如何在R中使用快速计时器？

Question

我需要每10毫秒运行一次循环。我尝试了以下两种方法：

#First
library(tcltk2)
tclTaskSchedule(10, f_test(), id='taskId',  redo=TRUE )

#Second
library(later)
timer1 <- function(interval = 0.01) {
  f_test()
  later::later(timer1, interval)
}
timer1()

他们俩都很慢。它确实在10秒内运行了约200次。它应该运行1000次。函数f_test是快速的，它不是延迟的原因。