エラーが発生したときにSys.sleepでtryCatchを使用する

Question

tryCatchとSys.sleepを使用して、次のチャンクを自動化しようとしていますので、15分ごとにコードを再実行し続ける必要はありません。

Twitterでは、15分ごとに特定の数のツイートをダウンロードできます。最大に達したら、エラーメッセージが表示されます。エラーメッセージを受け取った15分後に、ツイートの数をリセットしてダウンロードすることができます。

リスト（x）は、つぶやきをダウンロードするために必要な数百のハンドルです。

# get initial list of Twitter Handles from df 
x <- as.vector(df$Handle) 

# get list of existing files from folder 
f <- list.files("C:/workDump/") 

# subset list of files if necessary 
xSubset <- x[length(f):(length(x))] 

# download the twitter timeline data for list elements which do not exist 
for (i in xSubset){ 
    timeline <- userTimeline(i,n = 3200) 
    timeline <- twListToDF(timeline) 
    save(timeline, file=paste("workDump/", i, ".Rda")) 
} 

私はこの時点で私はちょうど自分自身を混乱させてるtryCatchとSys.sleepの多くの様々な仕様でプレイしました。

Answer 1

私はあなたのコードを使用することはできませんよう、私は推測することができます。

R.utils::evalWithTimeout({ 
    repeat { 
     res <- try(
     # Your code 
     }) 
     # Handle error from try if necessary: 
     if (class(res) != "try-error") { 
     # Your code 
     } 
    } 
    }, timeout = 15*60, onTimeout = "warning") 

15 * 60秒のタイムアウトで。