2016-08-12 5 views
2

私は実行時間を変える機能を持っていますが、ほとんどのユースケースでは20秒未満になります。私はあなたのループで(したがって、スリープコマンドまたは任意の「待つ」コマンドを使用することはできません)10分ごとにかかわらず、機能が実際にかかる時間のR-実行時間に関係なく、X分ごとにスクリプトを実行します。

+0

[this(http://stackoverflow.com/questions/2793389/scheduling-r-script)または[this ](http://stackoverflow.com/questions/10116411/schedule-r-script-using-cron) – Sumedh

+0

Windows OS上にないか、利用可能なMSツールがあります。理想的には、私はこれが赤い帽子で動作するようにしたいと思います – knowads

答えて

2

を関数を実行するためのスクリプトをしたい:

p1 <- Sys.time() 
yourFunct() 
theDelay <- 600-as.numeric(difftime(Sys.time(),p1,unit="secs")) 
Sys.sleep(max(0, theDelay) 

または追加します関数が直ちに実行されないようにするには、関数が10分以上かかる場合に適切な処理を行います。

+1

ありがとうございました。大量のユーザーエラーがない限り、10分以上かかることはありません。 – knowads

+1

@knowadsその後、(theDelay <= 0)stop( "大規模なユーザーエラー!!!")またはそのようなものがあったら、おそらく実行するべきです。 – AlexR

関連する問題