withPar function

Evaluate an R expression with graphical parameters set temporarily