bug in layout?

[Nicholas Lewin-Koh]

Hi,

 I am not sure if this is a bug in layout or I am doing something silly.
 If it is a bug I will file a proper report.

here goes:

plot.new()
old.pars<-par()

 #try to divide the device into a big and small component
 layout(matrix(c(1,2),1,2),widths=c(lcm((old.pars$pin[1]-1)*2.2),lcm(2.2)))
 lay.pars<-par()
 names(old.pars)[!old.pars%in%lay.pars]
 [1] "cxy"   "fig"   "mfcol" "mfg"   "mfrow" "pin"   "plt"
 lay.pars$pin
 [1] -0.2828187  5.2876886
 #Huh? should this be negative?
 dev.off()
 plot.new()
 layout(matrix(c(1,2),1,2),widths=c(5,1))
 lay.pars<-par()
 lay.pars$pin
 [1] 0.01610944 5.28768865
 plot.new()
 lay.pars<-par()
 lay.pars$pin
 [1] 4.676389 5.287689
 Reverse of what I would have thought.
 
 Thanks
 Nicholas


-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-devel-request@stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._