Performance

[jeroen]

Update my initial diagnosis was wrong. It looks like somewhere there is some warm-up required:

> library(evaluate)
> options(device = function(file, ...){
+   pdf(NULL, ...)
+ })
>
> cl <- call("rnorm", 10)
>
> system.time(evaluate(cl))
   user  system elapsed
  0.107   0.005   0.113
> system.time(evaluate(cl))
   user  system elapsed
  0.118   0.003   0.123
> system.time(evaluate(cl))
   user  system elapsed
  0.002   0.000   0.002
> system.time(evaluate(cl))
   user  system elapsed
  0.003   0.000   0.005

This happens very consistently. The first two calls to evaluate() have about 100ms extra overhead.