追加プログレスバーが

Question

私は自分のanalyse関数を複数回（analyseリターンリスト）を実行するためにreplicateを使用していますRの関数を複製します複製は現時点で終了しましたか？私はtxtProgressBarで試しましたが、for-loopなしで動作させる方法はわかりません。

EDIT：私の場合はreplicate:

analyse <- function() { 
    out <- list('a' = vector('list', 5), 'b' = vector('list', 5)) 
} 
results <- replicate(3, analyse()) 

の再現性の例は、analyseの出力が結果にリストの深いリストです。 resultsという新しい列が記入されるたびにプログレスバーを更新したいので、各レプリケーションの後に進めてください。

Answer 1

あなたは解決策がpbapplyパッケージからpbreplicate()機能を使用することですforループ

x <- seq(1,100) 
pb <- txtProgressBar(1, 100, style=3) 
StartTime <- Sys.time() 
for(i in x){ 
    Sys.sleep(0.01) 
    setTxtProgressBar(pb, i) 
} 

Sys.time() - StartTime 

Answer 2

で、次の例を試みることができます。このパッケージには、それぞれapply()、lapply()およびsapply()のプログレスバー機能が含まれています。