有没有办法将倒数计时器纳入R功能？

Question

我想将倒计时计时器集成到我正在编写的R函数中，以记录动物对气味的行为响应，以便用户知道实验还能进行多长时间。

我找到了一个我认为可能有用的名为print(sys.executable)的软件包，可以在GitHub here上找到它。使用此程序包时，无法按我的功能需要运行countdown函数-它不会在查看器窗格中显示倒数，也不会自动开始。这两个问题都会降低实验的准确性。

这是我用于功能的代码：

countdown_fullscreen

我希望计时器将显示在查看器中并自动开始，但是事实并非如此。任何帮助将不胜感激。

Answer 1

我对倒计时包不熟悉。但是一种选择可能是使用tcltk进度条

library(tcltk)

timer = 10
pb <- tkProgressBar("Timer")
start = Sys.time()
while(TRUE) {
  elapsed = as.numeric(difftime(Sys.time(), start, units = 'secs'))
  remaining = timer - elapsed
  Sys.sleep(0.1)
  setTkProgressBar(pb, remaining/timer, label = sprintf("Time remaining: %i seconds", round(remaining)))
  if (remaining <= 0) break
}
Sys.sleep(2)
close(pb)