Temporarily change graphics parameters.

with_par(new, code, no.readonly = FALSE)

local_par(
  .new = list(),
  ...,
  no.readonly = FALSE,
  .local_envir = parent.frame()
)

Arguments

new, .new

[named list]
New graphics parameters and their values

code

[any]
Code to execute in the temporary environment

no.readonly

[logical(1)]
see par() documentation.

...

Additional graphics parameters and their values.

.local_envir

[environment]
The environment to use for scoping.

Value

[any]
The results of the evaluation of the code argument.

See also

withr for examples

par()

Examples

old <- par("col" = "black") # This will be in red with_par(list(col = "red", pch = 19), plot(mtcars$hp, mtcars$wt) )
# This will still be in black plot(mtcars$hp, mtcars$wt)
par(old)