1

実行demo(graphics)中で、連続するプロットが表示される速度を制御したいとします。通常、実行するdemo(graphics)と、Enterキーを押すことで次のプロットを表示するタイミングを制御できます（このようにして、の次の関数をトリガーしますdemo()）。しかし、Enterキーを押したくありません-プロット表示間の時間制御された変更を使用して、それを単独で実行したいです（たとえば、プロットは6秒ごとに、次は3秒後に変更されます）。以下は、2秒後に2つの関数間で変化する残忍なコードです。demo()また、を使用してクイックモード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)
4

1 に答える 1

7

フックを設定するだけbefore.plot.newで遅延が追加されます。

setHook("before.plot.new", function(...) Sys.sleep(1))
demo(graphics, ask=F)
于 2011-12-24T06:06:39.940 に答える