R/create_log_time.R

In delta1epsilon/logtime: Logging and timing of your code

# Create log_time function
#
# @param start A function to be executed on start
# @param end A function to be executed on exit
# @param level A string
# @param logger_name A string
# @param file A string
#
# @return A function
create_log_time <- function (start = function () {},
                             end = function () {},
                             level = 'DEBUG',
                             logger_name = NULL,
                             file = ''
                             ) {
    logger_level = level

    function (expr, env = parent.frame(), message, level = logger_level) {
        check_if_level_valid(level)

        # execute a function on start
        start(message, level, logger_name = logger_name, file = file)

        # Evaluate the expression
        output <-  # assign to dummy variable to avoid unnecessar output
            eval(expr, envir = env)

        end(message, level, logger_name = logger_name, file = file)
    }
}