功能退出

如果必須分配全域性變數，on.exit() 函式便於變數清理。

某些引數，尤其是圖形引數，只能全域性設定。建立更專業的圖時，這個小功能很常見。

new_plot <- function(...) {
     
     old_pars <- par(mar = c(5,4,4,2) + .1, mfrow = c(1,1))
     on.exit(par(old_pars))
     plot(...)
 }