Called for the side effect of providing a message of the time required to execute the rest of the function.
Usage
local_timer(..., title = "", srcref = TRUE, .local_envir = rlang::caller_env())
Examples
fun <- function() {
local_timer()
Sys.sleep(0.1)
10
}
fun()
#> 00:00:00.101 [:]
#> [1] 10