Я хочу запустить функцию, для выполнения которой требуется менее одной секунды. Я хочу запускать его в цикле каждую секунду. Я не хочу ждать одну секунду между запуском функции, как Sys.sleep
.
while(TRUE){
# my function that takes less than a second to run
Sys.sleep(runif(1, min=0, max=.8))
# wait for the remaining time until the next execution...
# something here
}
Я мог записать a starttime <- Sys.time()
и выполнить сравнение каждой итерации через цикл, что-то вроде этого...
starttime <- Sys.time()
while(TRUE){
if(abs(as.numeric(Sys.time() - starttime) %% 1) < .001){
# my function that takes less than a second to run
Sys.sleep(runif(1, min=0, max=.8))
print(paste("it ran", Sys.time()))
}
}
Но моя функция никогда не выполняется.
Я знаю, что у python есть пакет для такого рода вещей. У R тоже есть тот, о котором я не знаю? Спасибо.