Simple logic for pretty time-to-complete message

timeit.R

library(magrittr)
start <- Sys.time()
end <- Sys.time()
dur <- (end - start) %>% lubridate::as.duration()
dur_s <- round(as.numeric(dur, 'seconds'), 1) %>% scales::comma()
dur_m <- round(as.numeric(dur, 'minutes'), 1) %>% scales::comma()
cat(glue::glue('action took {dur_s} seconds ({dur_m} minutes) to complete.'))