Reset par to the default values at startup

Question

Normally when I make my own plot functions, I make a construct :

op <- par(\"mypar\"=myvalue)
on.exit(par(op))

which is the standard way

Answer 1

Use below script to get back to normal 1 plot:

par(mfrow = c(1,1))