mostrando un messaggio di stato in R

Question

Mi piacerebbe scrivere una funzione che presenta all'utente un messaggio di stato che mostra qualcosa come il tempo, la percentuale di completamento e lo stato corrente di un processo. Posso gestire il montaggio del messaggio, ma mi piacerebbe fare qualcosa di diverso dalla semplice stampa sulla console e farlo scorrere verso l'alto, un messaggio dopo l'altro. Mi piacerebbe davvero che il messaggio cambiasse senza scorrere come message() e senza alcuna grafica. È possibile con R?

Answer 1

Che ne dici di qualcosa del genere?

for(i in 1:10) { 
    Sys.sleep(0.2) 
    # Dirk says using cat() like this is naughty ;-) 
    #cat(i,"\r") 
    # So you can use message() like this, thanks to Sharpie's 
    # comment to use appendLF=FALSE. 
    message(i,"\r",appendLF=FALSE) 
    flush.console() 
} 

Answer 2

Ci possono essere più eleganti modi per farlo, ma questo potrebbe farlo:

test.message <- function() { 
    for (i in 1:9){ 
    cat(i) 
    Sys.sleep(1) 
    cat("\b") 
    } 

} 

Se si sta generando automaticamente il vostro messaggio, avrete bisogno di calcolare quanti \ caratteri b in uscita per eseguire il backup della quantità corretta, ma è abbastanza semplice.

Answer 3

Il pacchetto utils contiene txtProgressBar e le funzioni per l'aggiornamento che può essere utilizzato per mostrare la percentuale di completamento di un processo.

Vedi le up1, up2 e up3 funzioni che si creano durante una chiamata a txtProgressBar per esempi di come vengono gestiti gli aggiornamenti senza dover scorrere la console.

Answer 4

Ecco alcuni bling bling. Da ?tcltk::tkProgressBar.

pb <- tkProgressBar("test progress bar", "Some information in %", 
     0, 100, 50) 
Sys.sleep(0.5) 
u <- c(0, sort(runif(20, 0 ,100)), 100) 
for(i in u) { 
    Sys.sleep(0.1) 
    info <- sprintf("%d%% done", round(i)) 
    setTkProgressBar(pb, i, sprintf("test (%s)", info), info) 
} 
Sys.sleep(5) 
close(pb)