temporarily modify par values?
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