temporarily modify par values?

Is there some sort of 'with.par' function that temporarily changes par
parameters and then re-sets them so that instead of doing things such as

opar <- par(mar=c(4.1,4.1,4.1,8),...)

<do things>

par(opar)

you can do something like

with.par(mar=c(4.1,4.1,4.1,8),..., 
    <do things>)

where all but the last argument are parameters for par, and the last is
evaluated with opar <- par(...) and par(opar) wrapped around it?



Yours sincerely,

Jim Ottaway