diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2021-02-24 14:46:10 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2021-02-24 14:58:04 +0100 |
| commit | 64fa10032f99490a5998589161574109484ee769 (patch) | |
| tree | 74c47a1c8d36a1b164029f808b6075f61d2ab43a /R/plot.mmkin.R | |
| parent | 7f35f5d98968f059176f4c339e1db8f17d5c4bf1 (diff) | |
Reset graphical parameters with on.exit()
plot.mixed.mmkin did not reset graphical parameters at all. The other
plotting functions did not use on.exit, so this change should make the
use of the plotting functions safer.
Diffstat (limited to 'R/plot.mmkin.R')
| -rw-r--r-- | R/plot.mmkin.R | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/R/plot.mmkin.R b/R/plot.mmkin.R index f8ed1f9a..2166b30e 100644 --- a/R/plot.mmkin.R +++ b/R/plot.mmkin.R @@ -65,6 +65,7 @@ plot.mmkin <- function(x, main = "auto", legends = 1, { oldpar <- par(no.readonly = TRUE) + on.exit(par(oldpar, no.readonly = TRUE)) n.m <- nrow(x) n.d <- ncol(x) @@ -153,6 +154,4 @@ plot.mmkin <- function(x, main = "auto", legends = 1, } mtext(paste(fit_name, "residuals"), cex = cex, line = 0.4) } - - par(oldpar, no.readonly = TRUE) } |