Execute expr with a timeout?

Hello,

Does someone know how to execute an expression in R, limiting the time 
to evaluate it and raising an exception if it takes too long to run? 
Something like:

 > with.timeout(expr, timeout = 10)

which stops the evaluation of 'expr' if it is not done after 10 sec?
Best,

Philippe Grosjean