Returns the time elapsed since the script was sourced. Great for profiling! Source it at the start of your script, then call run.time() when outputting debug info #rstatstips

script-time.r

# james goldie, climate change research centre, unsw, dec 2015

# run.time: returns the time elapsed since this script was
# sourced in sensible units as a string ('**h**m**s')
script.start.time = Sys.time()
run.time <- function()
{   
    now = Sys.time()
    return(paste0(
        as.integer(difftime(now, script.start.time, units = 'hours')),
        'h',
        as.integer(difftime(now, script.start.time, units = 'mins')) %% 60,
        'm',
        as.integer(difftime(now, script.start.time, units = 'secs')) %% 60,
        's '))
}