Hi,
I am trying to find a way to automate production of page numbers in plots
produced using the lattice package. To do this, I started playing around
with setHook which works fine with vanilla plot, but the hook 'plot.new'
doesn't appear to be relevant to the lattice package. I was wondering if
there is a alternative someone can suggest for use with the lattice package.
Example code:
library(lattice)
graphics.off()
myFunc <- function()
{
mainTitle <<- 'Page 1'
}
setHook('plot.new', NULL, 'replace')
setHook('plot.new', myFunc)
mainTitle <- 'No hook called'
plot(1:10, main = mainTitle)
win.graph()
mainTitle <- 'No hook called'
xyplot(1:10 ~ 1:10, main = mainTitle)
setHook('plot.new', NULL, 'replace')
> sessionInfo()
R version 2.6.0 (2007-10-03)
i386-pc-mingw32
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
attached base packages:
[1] stats graphics grDevices utils datasets methods
[7] base
other attached packages:
[1] lattice_0.16-5
loaded via a namespace (and not attached):
[1] grid_2.6.0
--
View this message in context:
http://www.nabble.com/setHook-and-lattice-tp15764144p15764144.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
