See share/perl/massage-examples.pl Hint: lattice is a (very sophisticated) wrapper for grid, and it is grid.newpage() that has the hook.
Hint 2: look at the version in the R-devel sources, https://svn.r-project.org/R/trunk/share/perl/massage-Examples.pl for use with lattice. On Fri, 29 Feb 2008, Jim Price wrote: > > 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. > -- Brian D. Ripley, [EMAIL PROTECTED] Professor of Applied Statistics, http://www.stats.ox.ac.uk/~ripley/ University of Oxford, Tel: +44 1865 272861 (self) 1 South Parks Road, +44 1865 272866 (PA) Oxford OX1 3TG, UK Fax: +44 1865 272595 ______________________________________________ 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.
