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
|
#' @export
`__cli_update_due` <- FALSE
#' @export
cli_tick_reset <- function() {
.Call(clic_tick_reset)
}
#' @export
ccli_tick_reset <- NULL
cli_tick_set <- function(tick_time = NULL, speed_time = NULL) {
tick_time <- tick_time %||% clienv$tick_time
speed_time <- speed_time %||% clienv$speed_time
clienv$speed_time <- as.double(speed_time)
clienv$tick_time <- as.integer(tick_time)
.Call(clic_tick_set, clienv$tick_time, clienv$speed_time)
invisible()
}
cli_tick_pause <- function(state = TRUE) {
.Call(clic_tick_pause, state)
}
cli_tick_resume <- function(state = TRUE) {
.Call(clic_tick_resume, state)
}
cli_with_ticks <- function(expr) {
on.exit(cli_tick_resume(TRUE), add = TRUE)
opts <- options(cli.progress_show_after = 0)
on.exit(options(opts), add = TRUE)
cli_tick_pause(TRUE)
expr
}
cli_without_ticks <- function(expr) {
on.exit(cli_tick_resume(TRUE), add = TRUE)
opts <- options(cli.progress_show_after = 0)
on.exit(options(opts), add = TRUE)
cli_tick_pause(FALSE)
expr
}
|
