Как я могу иметь быстрый таймер в 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()

Они оба были медленными. Он работал около 200 раз за 10 секунд. Он должен работать 1000 раз. Функция f_test быстрая, она не будет причиной задержки.