R/s_time.R
s_time.Rd
Time spent on a function
s_time(.x)
The function
The function output
x <- seq_len(1e6) mean(x) %>% s_time() #> Time spent: 0.007 secs