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
|
#' Slowly Calculate Sum of Elements
#'
#' @param x Numeric vector to sum
#'
#' @param delay Delay in seconds after each addition.
#'
#' @param stdout If TRUE, then a text is outputted to the standard output
#' per element.
#'
#' @param message If TRUE, then a message is outputted per element.
#'
#' @param sticky If TRUE, then a "sticky" message is outputted every
#' ten element.
#'
#' @return The sum of all elements in `x`.
#'
#' @section Progress updates:
#' This function signals [progression] conditions as it progresses.
#'
#' @keywords internal
#' @export
slow_sum <- function(x, delay = getOption("progressr.demo.delay", 1.0), stdout = FALSE, message = TRUE, sticky = TRUE) {
## Hidden options to simplify help asciicast examples
if (missing(stdout)) stdout <- getOption("progressr.slow_sum.stdout", FALSE)
if (missing(message)) message <- getOption("progressr.slow_sum.message", TRUE)
if (missing(sticky)) sticky <- getOption("progressr.slow_sum.sticky", TRUE)
p <- progressor(along = x)
sum <- 0
for (kk in seq_along(x)) {
p(amount = 0) ## "I'm alive" progression update
Sys.sleep(0.2*delay)
if (stdout) cat(sprintf("O: Element #%d\n", kk))
Sys.sleep(0.2*delay)
p(amount = 0)
Sys.sleep(0.2*delay)
sum <- sum + x[kk]
p(message = sprintf("P: Adding %g", kk))
Sys.sleep(0.2*delay)
if (message) message(sprintf("M: Added value %g", x[kk]))
p(amount = 0)
Sys.sleep(0.2*delay)
if (sticky && kk %% 10 == 0) {
p(
amount = 0,
message = sprintf("P: %d elements done", kk),
class = "sticky"
)
}
}
p(amount = 0)
sum
}
|
