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