# NOT RUN {
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)
# }
Run the code above in your browser using DataLab