From ba9a4030a3472cfe3d2257e07fe4949224d0c016 Mon Sep 17 00:00:00 2001 From: Johannes Ranke 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