6 messages · Jim Ottaway, Romain Francois, Gabor Grothendieck
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
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
Romain Francois <romain.francois at dbmail.com> writes:
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
"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)
That looks promising, thank you very much. Yours sincerely,
Jim Ottaway
Romain Francois <romain.francois at dbmail.com> writes:
"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)
It would be nice to add exception handling to this, to clean up on
error. Something like unwind-protect in Lisp.
Here's a naive implementation:
with.par <- function(data, expr, ... ){
olderror <- getOption("error")
options(error=function () {
par(old.par)
options(error=olderror)
})
old.par <- data
expr
options(error=olderror)
invisible(par(old.par))
}
Is this a reasonable way to do such things? [I'm new to this kind of
stuff in R]
Or is there a 'with.error.handler' or 'with.unwind.protection' wrapper?
;-)
Yours sincerely,
Jim Ottaway
Here is a minor variation:
par <- function( ... ) structure( graphics::par( ... ), class = "par" )
with.par <- function( data, expr, ... ) {
on.exit(par(old.par, no.readonly = TRUE))
old.par <- data
invisible(expr)
}
which returns expr invisibly so that this works:
bp <- with(par(mar = c(4, 1, 1, 1)), boxplot(1:10))
On Sat, Apr 4, 2009 at 7:40 AM, Romain Francois
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
______________________________________________ R-help at r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
Gabor Grothendieck <ggrothendieck at gmail.com> writes:
Here is a minor variation:
par <- function( ... ) structure( graphics::par( ... ), class = "par" )
with.par <- function( data, expr, ... ) {
on.exit(par(old.par, no.readonly = TRUE))
old.par <- data
invisible(expr)
}
which returns expr invisibly so that this works:
bp <- with(par(mar = c(4, 1, 1, 1)), boxplot(1:10))
Thank you very much, that looks like a better way of cleaning up with an error too than my attempt. Yours sincerely,
Jim Ottaway