1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/makeProgressBar.R
\name{makeProgressBar}
\alias{makeProgressBar}
\alias{ProgressBar}
\title{Create a progress bar with estimated time}
\usage{
makeProgressBar(
min = 0,
max = 100,
label = "",
char = "+",
style = getOption("BBmisc.ProgressBar.style", "text"),
width = getOption("BBmisc.ProgressBar.width", getOption("width")),
stream = getOption("BBmisc.ProgressBar.stream", "stderr")
)
}
\arguments{
\item{min}{[\code{numeric(1)}]\cr
Minimum value, default is 0.}
\item{max}{[\code{numeric(1)}]\cr
Maximum value, default is 100.}
\item{label}{[\code{character(1)}]\cr
Label shown in front of the progress bar.
Note that if you later set \code{msg} in the progress bar function,
the message will be left-padded to the length of this label, therefore
it should be at least as long as the longest message you want to display.
Default is \dQuote{}.}
\item{char}{[\code{character(1)}]\cr
A single character used to display progress in the bar.
Default is \sQuote{+}.}
\item{style}{[\code{character(1)}]\cr
Style of the progress bar. Default is set via options (see details).}
\item{width}{[\code{integer(1)}]\cr
Width of the progress bar. Default is set via options (see details).}
\item{stream}{[\code{character(1)}]\cr
Stream to use. Default is set via options (see details).}
}
\value{
[\code{\link{ProgressBar}}]. A list with following functions:
\item{set [function(value, msg = label)]}{Set the bar to a value and possibly display a message instead of the label.}
\item{inc [function(value, msg = label)]}{Increase the bar and possibly display a message instead of the label.}
\item{kill [function(clear = FALSE)]}{Kill the bar so it cannot be used anymore. Cursor is moved to new line. You can also erase its display.}
\item{error [function(e)]}{Useful in \code{tryCatch} to properly display error messages below the bar. See the example.}
}
\description{
Create a progress bar function that displays the estimated time till
completion and optional messages. Call the returned functions \code{set} or
\code{inc} during a loop to change the display.
Note that you are not allowed to decrease the value of the bar.
If you call these function without setting any of the arguments
the bar is simply redrawn with the current value.
For errorhandling use \code{error} and have a look at the example below.
You can globally change the behavior of all bars by setting the option
\code{options(BBmisc.ProgressBar.style)} either to \dQuote{text} (the default)
or \dQuote{off}, which display no bars at all.
You can globally change the width of all bars by setting the option
\code{options(BBmisc.ProgressBar.width)}. By default this is \code{getOption("width")}.
You can globally set the stream where the output of the bar is directed by setting the option
\code{options(BBmisc.ProgressBar.stream)} either to \dQuote{stderr} (the default)
or \dQuote{stdout}. Note that using the latter will result in the bar being shown in
reports generated by Sweave or knitr, what you probably do not want.
}
\examples{
bar = makeProgressBar(max = 5, label = "test-bar")
for (i in 0:5) {
bar$set(i)
Sys.sleep(0.2)
}
bar = makeProgressBar(max = 5, label = "test-bar")
for (i in 1:5) {
bar$inc(1)
Sys.sleep(0.2)
}
# display errors properly (in next line)
\dontrun{
f = function(i) if (i>2) stop("foo")
bar = makeProgressBar(max = 5, label = "test-bar")
for (i in 1:5) {
tryCatch ({
f(i)
bar$set(i)
}, error = bar$error)
}
}
}
|
