From Dietrich.Trenkler at uni-osnabrueck.de  Fri Jul 20 12:57:34 2007
From: Dietrich.Trenkler at uni-osnabrueck.de (Dietrich.Trenkler at uni-osnabrueck.de)
Date: Fri, 20 Jul 2007 12:57:34 +0200 (CEST)
Subject: [Rd] Bug in dev.print ? (PR#9801)
Message-ID: <20070720105734.8B43C667DE@slim.kubism.ku.dk>

Ladies and Gentlemen,

the following piece of code causes an annoying error:


 > aa <- structure(list(BG = c(24, 16, 61, 30, 37, 33, 13, 4, -34,
+     10, 33, 41, 6, 32, 39, 37, 36, -17, 60, 35, 22, 21, 29, 52,
+     41, 62, -26, 30, -33, 27, 34, 28, 36, 29, -12, 38, 34, 32,
+     40, 36, 39, 31, 19, 55, 28, 40, 38, 39, -31, 64, -22, 41,
+     37, -33, 18, 31, 1, -33, 28, 36, -22), Kont = c(4, 7, 3,
+     4, 6, 3, 4, 7, 7, 7, 2, 3, 4, 3, 3, 6, 3, 2, 6, 6, 4, 3,
+     3, 4, 6, 4, 2, 1, 2, 4, 6, 6, 3, 4, 7, 6, 3, 6, 6, 6, 6,
+     2, 7, 6, 4, 3, 6, 4, 5, 6, 7, 6, 3, 7, 7, 4, 4, 5, 6, 2,
+     2), Jan = c(25, 31, -4, 15, 13, 12, 32, 20, 30, 30, 18, 1,
+     30, 15, 8, 16, 7, 27, -3, 15, 20, 26, 18, -15, 8, -36, 25,
+     19, 27, 18, 17, 21, 15, 9, 25, 14, 19, 19, 11, 17, 15, 18,
+     21, -3, 19, 4, 14, 2, 32, 2, 29, 12, 13, 29, 30, 8, 30, 26,
+     21, 15, 31), Feb = c(28, 31, -1, 16, 14, 14, 33, 19, 28,
+     29, 18, 2, 32, 16, 7, 17, 8, 26, -3, 15, 21, 26, 20, -9,
+     9, -29, 25, 21, 28, 21, 18, 21, 16, 10, 27, 16, 18, 18, 13,
+     18, 15, 21, 23, -4, 24, 5, 15, 6, 30, 2, 30, 13, 15, 26,
+     30, 11, 31, 28, 21, 17, 30), Mrz = c(30, 31, -1, 19, 17,
+     19, 35, 19, 26, 30, 20, 9, 32, 21, 14, 19, 12, 27, 2, 18,
+     23, 26, 23, 1, 12, -10, 24, 23, 27, 25, 20, 23, 23, 13, 26,
+     18, 19, 20, 16, 19, 18, 24, 25, 3, 30, 9, 17, 12, 32, 4,
+     30, 15, 17, 26, 30, 14, 32, 25, 23, 20, 29), Apr = c(35,
+     31, 5, 21, 20, 23, 36, 19, 22, 30, 20, 16, 32, 25, 15, 21,
+     14, 26, 9, 20, 26, 28, 26, 7, 16, 3, 22, 27, 24, 28, 22,
+     23, 25, 16, 24, 20, 19, 20, 18, 22, 20, 24, 27, 12, 37, 14,
+     20, 21, 25, 6, 29, 18, 17, 23, 30, 18, 32, 23, 23, 22, 26),
+     Mai = c(40, 32, 12, 27, 26, 26, 34, 19, 18, 31, 22, 21, 32,
+         29, 22, 23, 22, 24, 16, 24, 30, 28, 30, 16, 22, 13, 19,
+         32, 20, 27, 27, 24, 33, 20, 21, 22, 21, 21, 23, 25, 25,
+         29, 26, 19, 40, 21, 24, 27, 23, 9, 26, 24, 20, 19, 31,
+         24, 32, 20, 24, 28, 24), Jun = c(41, 32, 17, 33, 30,
+         29, 34, 18, 16, 31, 25, 26, 31, 32, 27, 26, 28, 20, 20,
+         27, 32, 29, 32, 23, 27, 21, 17, 35, 18, 29, 31, 26, 38,
+         23, 18, 27, 22, 23, 31, 29, 29, 34, 25, 23, 39, 28, 28,
+         30, 19, 12, 26, 28, 22, 15, 31, 27, 31, 17, 25, 32, 22),
+     Jul = c(42, 33, 19, 35, 33, 30, 34, 18, 14, 32, 26, 29, 31,
+         36, 32, 29, 28, 21, 24, 30, 33, 30, 34, 23, 30, 26, 17,
+         35, 18, 28, 33, 27, 39, 22, 19, 29, 25, 25, 34, 32, 32,
+         37, 24, 25, 36, 29, 30, 32, 18, 14, 25, 29, 22, 15, 32,
+         32, 31, 17, 28, 34, 21), Aug = c(43, 33, 17, 35, 33,
+         31, 34, 18, 16, 32, 27, 28, 30, 35, 30, 29, 26, 23, 21,
+         30, 32, 31, 34, 20, 29, 21, 20, 35, 18, 28, 33, 28, 39,
+         21, 18, 30, 25, 26, 33, 31, 32, 37, 24, 22, 34, 29, 29,
+         31, 19, 14, 26, 29, 22, 17, 32, 31, 31, 19, 28, 34, 24),
+     Sep = c(43, 33, 13, 32, 29, 28, 33, 18, 19, 33, 26, 25, 31,
+         32, 26, 26, 24, 28, 17, 27, 31, 30, 32, 16, 25, 11, 23,
+         34, 19, 28, 31, 28, 34, 20, 19, 28, 25, 26, 28, 28, 29,
+         33, 23, 17, 35, 24, 27, 27, 20, 11, 26, 26, 24, 18, 32,
+         29, 31, 22, 28, 29, 28), Okt = c(37, 32, 5, 27, 24, 23,
+         32, 18, 21, 32, 24, 17, 31, 25, 17, 23, 17, 29, 9, 24,
+         29, 29, 27, 5, 20, -5, 25, 29, 21, 26, 27, 26, 27, 17,
+         20, 22, 22, 24, 21, 24, 25, 28, 23, 9, 33, 18, 25, 19,
+         22, 6, 27, 22, 21, 22, 32, 23, 32, 21, 27, 27, 31), Nov = c(31,
+         32, -2, 21, 18, 18, 32, 19, 25, 32, 21, 10, 31, 19, 11,
+         19, 11, 27, 2, 20, 26, 28, 21, -5, 15, -24, 25, 25, 25,
+         23, 23, 25, 19, 12, 22, 17, 21, 21, 13, 20, 18, 23, 22,
+         0, 28, 13, 19, 10, 28, 4, 27, 17, 17, 26, 31, 17, 31,
+         23, 25, 20, 31), Dez = c(27, 32, -4, 16, 14, 11, 31,
+         19, 29, 30, 19, 2, 31, 14, 7, 17, 7, 27, 0, 16, 22, 27,
+         16, -13, 10, -35, 25, 20, 26, 21, 18, 22, 14, 9, 23,
+         14, 19, 20, 11, 17, 16, 20, 22, -3, 23, 6, 17, 3, 30,
+         3, 29, 14, 15, 29, 31, 10, 30, 26, 23, 18, 33)), .Names = c("BG",
+     "Kont", "Jan", "Feb", "Mrz", "Apr", "Mai", "Jun", "Jul",
+     "Aug", "Sep", "Okt", "Nov", "Dez"), row.names = c("Abu 
Dhabi             ",
+     "Acapulco              ", "Anchorage             ", 
"Antalya               ",
+     "Athen                 ", "Atlanta               ", 
"Bangkok               ",
+     "Bogota                ", "BuenosAires           ", 
"Caracas               ",
+     "Casablanca            ", "Chicago               ", 
"ColomboSriLanka       ",
+     "Dallas                ", "Denver                ", 
"FaroAlgarve           ",
+     "GrandCanyonArizona    ", "Harare                ", 
"Helsinki              ",
+     "HeraklionKreta        ", "Hongkong              ", 
"Honolulu              ",
+     "Houston               ", "Irkutsk               ", 
"Istanbul              ",
+     "JakutskNordostsibirien", "Johannesburg          ", 
"Kairo                 ",
+     "Kapstadt              ", "Kathmandu             ", 
"LarnakaZypern         ",
+     "Las Palmas            ", "Las Vegas             ", 
"Lhasa                 ",
+     "Lima                  ", "Lissabon              ", "Los 
Angeles           ",
+     "Madeira               ", "Madrid                ", 
"Malaga                ",
+     "Mallorca              ", "Marrakesch            ", "Mexico 
City           ",
+     "Moskau                ", "Neu Delhi             ", "New 
York              ",
+     "Palermo               ", "PekingBeijing         ", 
"PerthAustralien       ",
+     "Reykjavik             ", "RioDeJaneiro          ", 
"Rom                   ",
+     "SanFrancisco          ", "SantiagoDeChile       ", 
"SantoDomingoKaribik   ",
+     "Shanghai              ", "Singapur              ", 
"SydneyAustralien      ",
+     "Teneriffa             ", "Tunis                 ", 
"Windhoek              "),
+     class = "data.frame")
 >
 > attach(aa)
 > par(mfrow=c(4,3))
 > m 
<-c("Januar","Februar","M?rz","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember")
 > for(i in 1:12)
+ 
plot(BG,aa[,i+2],main=m[i],xlab="Breitengrad",ylab="Temperatur",ylim=c(-35,35))
 > dev.print(device = postscript, 
width=4,height=5,horizontal=TRUE,file="c://test.ps")
windows
      2
 > # That's fine
 > # Here comes the error
 > dev.print(device = postscript, width=5 
,height=4,horizontal=TRUE,file="c://test.ps")
Error in dev.copy(device = function (file = ifelse(onefile, "Rplots.ps",  :
        invalid graphics state
 > # From now on plotting is impossible:
 > plot(1:2)
Error in plot.new() : figure margins too large
 > # As a "remedy" I restart R



--please do not edit the information below--

Version:
 platform = i386-pc-mingw32
 arch = i386
 os = mingw32
 system = i386, mingw32
 status =
 major = 2
 minor = 5.0
 year = 2007
 month = 04
 day = 23
 svn rev = 41293
 language = R
 version.string = R version 2.5.0 (2007-04-23)

Windows XP (build 2600) Service Pack 2.0

Locale:
LC_COLLATE=English_United States.1252;LC_CTYPE=English_United 
States.1252;LC_MONETARY=English_United 
States.1252;LC_NUMERIC=C;LC_TIME=English_United States.1252

Search Path:
 .GlobalEnv, aa, package:stats, package:graphics, package:grDevices, 
package:utils, package:datasets, package:methods, Autoloads, package:base


-- 
Dietrich Trenkler c/o Universitaet Osnabrueck 
Rolandstr. 8; D-49069 Osnabrueck, Germany    
email: Dietrich.Trenkler at Uni-Osnabrueck.de



[Rd] Bug in dev.print ? (PR#9801)
Dietrich.Trenkler at uni-osnabrueck.de