From ba9a4030a3472cfe3d2257e07fe4949224d0c016 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Mon, 5 May 2014 17:39:50 +0200
Subject: Get old parameters timely (before calling layout)

---
 R/mkinparplot.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/mkinparplot.R b/R/mkinparplot.R
index 7f8a705..28c1d2a 100644
--- a/R/mkinparplot.R
+++ b/R/mkinparplot.R
@@ -27,12 +27,12 @@ mkinparplot <- function(object) {
               fractions.optim = length(fractions.optim))
   n.plot <- n.plot[n.plot > 0]
 
+  oldpars <- par(no.readonly = TRUE)
   layout(matrix(1:length(n.plot), ncol = 1), heights = n.plot + 1)
 
   s <- summary(object)
   bpar <- data.frame(t(s$bpar))
-  oldpars <- par(no.readonly = TRUE)
-  par(mar = c(3.1, 2.1, 0.1, 2.1))
+  par(mar = c(2.1, 2.1, 0.1, 2.1))
   par(cex = 1)
   for (type in names(n.plot)) {
     parnames <- get(type)
-- 
cgit v1.2.1