1#' @include with_.R
2NULL
3
4# par ------------------------------------------------------------------------
5
6#' Graphics parameters
7#'
8#' Temporarily change graphics parameters.
9#'
10#' @template with
11#' @param new,.new `[named list]`\cr New graphics parameters and their values
12#' @param no.readonly `[logical(1)]`\cr see [par()] documentation.
13#' @param ... Additional graphics parameters and their values.
14#' @inheritParams with_collate
15#' @seealso [par()]
16#' @export
17#' @examples
18#' old <- par("col" = "black")
19#'
20#' # This will be in red
21#' with_par(list(col = "red", pch = 19),
22#'   plot(mtcars$hp, mtcars$wt)
23#' )
24#'
25#' # This will still be in black
26#' plot(mtcars$hp, mtcars$wt)
27#'
28#' par(old)
29with_par <- with_(graphics::par)
30
31#' @rdname with_par
32#' @export
33local_par <- local_(graphics::par, dots = TRUE)
34