[e8206d]: R / unix / progress.bar.R Maximize Restore History

Download this file

progress.bar.R    12 lines (10 with data), 350 Bytes

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
updatePB <- function(start.iter, end.iter, adapting)
{
tcltk:::tkProgressBar(title=ifelse(adapting, "Adapting","Updating"),
label="Iteration 0", min = start.iter, max=end.iter,
initial=start.iter)
}
setPB <- function(pb, iter)
{
tcltk:::setTkProgressBar(pb, iter, label=paste("Iteration",iter))
}