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.mixed.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.mixed.mmkin.R')
| -rw-r--r-- | R/plot.mixed.mmkin.R | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/R/plot.mixed.mmkin.R b/R/plot.mixed.mmkin.R index 5a0b7412..4c1f1531 100644 --- a/R/plot.mixed.mmkin.R +++ b/R/plot.mixed.mmkin.R @@ -146,6 +146,7 @@ plot.mixed.mmkin <- function(x, # Start of graphical section oldpar <- par(no.readonly = TRUE) + on.exit(par(oldpar, no.readonly = TRUE)) n_plot_rows = length(obs_vars) n_plots = n_plot_rows * 2 |