R-alpha: R 0.50.a1: small patches for graphics and image demo
Kurt Hornik
Kurt.Hornik@ci.tuwien.ac.at
Mon, 28 Jul 1997 15:23:48 +0200
Applying the following patches closes the following task (part 1 was
already taken care of).
TASK: New Problems
STATUS: Open
FROM: <Kurt.Hornik@ci.tuwien.ac.at>
New minor remarks:
* The documentation for `image' still has the old order z, x, y.
* Perhaps one should add `par(ask = T)' in the image demo?
* Perhaps one should save the original value of par() at the
beginning of the graphics demo, and restore that at its end
(s.t. typically asking is turned off again).
Thanks,
-k
************************************************************************
*** demos/graphics/graphics.orig Sat Jul 26 10:40:03 1997
--- demos/graphics/graphics Sat Jul 26 10:37:50 1997
***************
*** 1,5 ****
###-*- R -*-
! par(ask = interactive() && .Device == "X11") # For source
# Here is some code which illustrates some of the differences between
# R and S graphics capabilities. Note that colors are generally specified
--- 1,6 ----
###-*- R -*-
!
! opar <- par(ask = interactive() && .Device == "X11") # For source
# Here is some code which illustrates some of the differences between
# R and S graphics capabilities. Note that colors are generally specified
*************** data("volcano")
*** 115,121 ****
x <- 10*1:nrow(volcano)
y <- 10*1:ncol(volcano)
l <- pretty(range(volcano), 10)
! opar <- par(bg="lightcyan")
pin <- par("pin")
xdelta <- diff(range(x))
ydelta <- diff(range(y))
--- 116,122 ----
x <- 10*1:nrow(volcano)
y <- 10*1:ncol(volcano)
l <- pretty(range(volcano), 10)
! par(bg="lightcyan")
pin <- par("pin")
xdelta <- diff(range(x))
ydelta <- diff(range(y))
*************** mtext("10 Meter Contour Spacing", side=3
*** 141,144 ****
--- 142,146 ----
par(bg="cornsilk")
data(quakes)
coplot(long~lat|depth, data=quakes, pch=21, bg="green3")
+
par(opar)
*** demos/graphics/image.orig Sat Jul 26 10:40:07 1997
--- demos/graphics/image Sat Jul 26 10:41:46 1997
***************
*** 1,4 ****
--- 1,7 ----
#### -*- R -*-
+
+ opar <- par(ask = interactive() && .Device == "X11") # For source
+
data(volcano)
x <- 10*(1:nrow(volcano))
y <- 10*(1:ncol(volcano))
*************** axis(2, at=seq(100, 600, by=100))
*** 30,32 ****
--- 33,36 ----
box()
title(main="Maunga Whau Volcano", font.main=4)
+ par(opar)
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
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
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-