Как лучше всего создать функцию таймера в R

Я пытаюсь создать функцию в R, которая возвращается в течение первых x секунд после вызова функции 1, следующих x секунд 0, следующих x секунд снова 1 ,. ... вся процедура должна остановиться через другой интервал времени или после n итераций. Я хочу сделать это с помощью одного вызова функции.

Я читал о пакете tcltk, который, по-видимому, влечет за собой некоторые возможности для создания таких функций "таймера", однако я не нашел достаточно объяснений, чтобы разобраться в моей проблеме.

Не могли бы вы посоветовать мне, где найти хорошее руководство, объясняющее tcl в контексте R? У вас есть другие идеи, как эффективно создать такую ​​функцию?

Большое спасибо за вашу помощь.