R help - Apr 2009 - 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

Jim Ottaway wrote:
> 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,
>   
Hi,

"with" is generic, so you could do something like that:

 > par <- function( ... ) structure( graphics::par( ... ), class =
"par" )
 > with.par <- function( data, expr, ... ){
+    old.par <- data
+    expr
+    invisible( par( old.par ) )
+ }
 > with( par( mar = c(0,0,0,0) ), plot( 1:10, 1:10 ) )
 > plot( 1:10, 1:10)

Romain

-- 
Romain Francois
Independent R Consultant
+33(0) 6 28 91 30 30
http://romainfrancois.blog.free.fr