R/report_time.R

In RajLabMSSM/echoLD: echoverse module: LD downloading and processing

Defines functions report_time

Documented in report_time

#' Report time at end of function
#'
#' @keywords internal
#' @importFrom utils capture.output
report_time <- function(start, v = TRUE) {
    messager(
        utils::capture.output(round(difftime(Sys.time(), start), 1)),
        v = v
    )
}