From arnima at u.washington.edu  Wed Aug  6 01:25:51 2003
From: arnima at u.washington.edu (arnima@u.washington.edu)
Date: Wed Aug  6 00:25:29 2003
Subject: [Rd] windows(record=T) loses last plot (PR#3663)
Message-ID: <200308052225.h75MPpJH019153@pubhealth.ku.dk>

Dear r-bugs,

It seems like the windows graphics device is having problems
recording plots when they are 5, 9, 13, ... in number. Given

temp <- function(nplt)
{
  if(exists(".SavedPlots")) rm(.SavedPlots,pos=1)
  for(d in dev.list()) dev.off()
  windows(record=T)
  for(i in 1:nplt) plot(0,0,pch=as.character(i),cex=4)
}

the results are:

temp(1)  # Ok, except PgUp generates unnecessary popup window
temp(2)  # Ok
temp(3)  # Ok
temp(4)  # Ok
temp(5)  # After cycling with PgUp and PgDn, plot 5 is lost
temp(6)  # Ok
temp(7)  # Ok
temp(8)  # Ok
temp(9)  # After cycling with PgUp and PgDn, plot 9 is lost
temp(10) # Ok
temp(11) # Ok
temp(12) # Ok
temp(13) # After cycling with PgUp and PgDn, plot 13 is lost
...
temp(4n+1)


Regards,
Arni

OS: Windows XP
R:  1.7.1


[Rd] windows(record=T) loses last plot (PR#3663)
arnima@u.washington.edu