[Rd] Suggestion for system.time()

[Seth Falcon]

François Pinard <pinard at iro.umontreal.ca> writes:

> [Seth Falcon]
>>Here's a function you could try.  It names the result as you
>>suggested.  It also can be nested, which system.time cannot, because
>>it uses on.exit without specifying add=TRUE.
>
> Thanks, Seth.  Your code could be useful, I'm saving it. :-)

You make it sound like that code is going to mature like a wine.  I'd
say, if it isn't useful now, it will be less useful later, but hey,
disk space is cheap :-D

> Just to be clear, my suggestion was more thought as a small benefit
> for the community of R users, rather than for myself alone.

That's what I understood.  I bothered to post some code because I
agree and saw a couple of small ways to improve system.time: add
names, allow nesting, and compute the time once instead of twice[*].
Perhaps others will agree and consider a change.

Best,

+ seth


[*] system.time computes the elapsed time twice: once when running the
on.exit hook, which gets called explicitly (!), and once for the
return value.  Here's the relevant lines:

    on.exit(cat("Timing stopped at:", proc.time() - time, "\n"))  ## once
    eval(expr, envir = loc.frame)
    new.time <- proc.time()
    on.exit()
    new.time - time                                               ## twice