Hinzufügen von Fortschrittsbalken zu replizieren Funktion in R

Question

ich replicate bin mit meiner eigenen analyse Funktion mehrmals (analyse kehrt eine Liste) auszuführen:

results <- replicate(reps, analyse()) 

Gibt es eine Möglichkeit Fortschrittsbalken an, zeigt den Prozentsatz der Repliken beendet im Moment? Ich habe versucht mit txtProgressBar, aber weiß nicht, wie man es ohne eine Schleife macht.

EDIT: reproduzierbares Beispiel replicate:

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

In meinem Fall Ausgabe von analyse ist eine tiefe Liste von Listen mit den Ergebnissen. Ich möchte, dass der Fortschrittsbalken jedes Mal aktualisiert wird, wenn eine neue Spalte von results ausgefüllt wird, also nach jeder Replikation.

Answer 1

Sie könnten das folgende Beispiel in einer Schleife for versuchen

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

Die Lösung pbreplicate() Funktion von pbapply Paket zu verwenden ist. Dieses Paket enthält auch entsprechende Fortschrittsbalkenfunktionen für apply(), lapply() und sapply().