manage_procedure("Start", "String will be printed\n")
timer <- manage_procedure(
"Start", "Printing a string is optional", verbose = FALSE
)
## Default starting message
manage_procedure("Start")
## Default ending message
manage_procedure("End", timer = timer)
## Other examples
get_duration(timer)
manage_procedure("End", "Custom ending message")
Run the code above in your browser using DataLab