Two simple duration functions; one formats time and the other uses formatted time to report loop progress.
R console:
install.packages("devtools")
devtools::install_github("cadnza/durationTools")
R console:
?durationTools::formatDuration
?durationTools::reportLoop
In the documentation. :-)