[Rd] Bug in dev.print ? (PR#9801)

From: <Dietrich.Trenkler_at_uni-osnabrueck.de>
Date: Fri, 20 Jul 2007 12:57:34 +0200 (CEST)


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

______________________________________________
R-devel_at_r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel
Received on Sat 21 Jul 2007 - 09:00:34 GMT

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Sat 21 Jul 2007 - 11:36:40 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-devel. Please read the posting guide before posting to the list.