Hi
The main problem here is that you really shouldn't be poking around
inside a "recordedplot" object. From the help page:
WARNING:
The format of recorded plots may change between R versions.
Recorded plots should *not* be used as a permanent storage format
for R plots.
R will always attempt to replay a recorded plot, but if the plot
was recorded with a different R version then bad things may
happen.
This could (should) be more explicit. In particular, it might be worth
adding a comment from the C source ...
* The graphics engine assumes that it is getting a snapshot
* that was created in THE CURRENT R SESSION
... [snapshot == recordedplot]. The basic message is: don't rely on
the internal structure of a recordedplot because we can (and have [and
will]) change it at any time.
That leaves the problem of how to achieve your "zoom", but I'm not sure
exactly what your zoom is doing (just modifying the axis ranges?).
Could you (privately) send me screen shots of before and after the zoom?
Then I can try to suggest a "correct" way to zoom.
Paul
Jean Coursol wrote:
I want to do a zoom with recordPlot(). I have problems with lists. (R-2.0.1 patched 2004-11-30 , various linux). I have problems with RecordPlot class structure.
plot(1:10) saveP <- recordPlot() dev.off()
sx <- saveP[[1]][[2]][[2]] saveP[[1]][[2]][[2]] <- sx
Error in "[[<-"(`*tmp*`, 1, value = list(list(
.Primitive("plot.new")), list(.Primitive("plot
.window"), c(1, :
incompatible types
typeof(saveP[[1]][[2]][[2]])
[1] "double"
typeof(sx)
[1] "double"
But:
s1 <- saveP[[1]] s1[[2]][[2]] <- c(4,6) saveP[1] <- list(s1) saveP # zoom is OK
Also, I don't understand recursive indexing. With not modified saveP,
saveP[[c(1,2)]]
[[1]]
.Primitive("plot.window")
[[2]]
[1] 1 10
[[3]]
[1] 1 10
[[4]]
[1] ""
[[5]]
[1] NA
# OK
saveP[[c(1,2,2)]]
Error: recursive indexing failed at level 2 # why not [1] 1 10 ?? Jean Coursol
______________________________________________ R-help at stat.math.ethz.ch mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
Dr Paul Murrell Department of Statistics The University of Auckland Private Bag 92019 Auckland New Zealand 64 9 3737599 x85392 paul at stat.auckland.ac.nz http://www.stat.auckland.ac.nz/~paul/