proc.time()
startTime <- proc.time()
# Some Logic
str_c("--- Elapsed time: ", (proc.time()-startTime)[3] %>% round(3), " seconds \
") %>% cat()
startTime <- proc.time()
# Some Logic
str_c("--- Elapsed time: ", (proc.time()-startTime)[3] %>% round(3), " seconds \
") %>% cat()