r - 使用计时器运行连续的 `demo()` 以了解事件之间的变化

Question

假设我正在跑步demo(graphics)，我想控制显示连续图的速度。通常，当我运行时，demo(graphics)我可以通过按 enter 控制下一个绘图何时显示（并以此方式触发下一个函数demo()）。但我不想按回车键 - 我希望它自己运行，在绘图显示之间进行时间控制的变化（例如，绘图将每 6 秒更改一次，接下来在 3 秒后更改，等等）。下面是一个残酷demo()的代码，在 2 秒后在两个函数之间切换。我还使用. demo()_ 但我想在一个单一的范围内做到这一点（如果可能的话，也是如此）。echo=FALSEdemo()example()

  library(tcltk2)
  test1 <- function() demo(graphics,echo=F)
  test2 <- function() demo(lm.glm, package="stats",echo=F)
  tclTaskSchedule(2000, test1())
  Sys.sleep(2)
  tclTaskSchedule(2000, test2())
  Sys.sleep(2)

Answer 1

只需设置before.plot.new钩子以添加延迟：

setHook("before.plot.new", function(...) Sys.sleep(1))
demo(graphics, ask=F)