SCM

SCM Repository

[latticeextra] Annotation of /pkg/R/panel.key.R
ViewVC logotype

Annotation of /pkg/R/panel.key.R

Parent Directory Parent Directory | Revision Log Revision Log


Revision 148 - (view) (download)

1 : felix 148
2 :     ## extracted and simplified from lattice:::plot.trellis
3 :    
4 :     panel.key <-
5 :     function(text, ..., corner = c(0, 1), x = corner[1], y = corner[2])
6 :     {
7 :     key <- simpleKey(text, ...)
8 :     key.gf <- draw.key(key, draw = FALSE)
9 :     vp <- viewport(x = unit(x, "npc") + unit(0.5 - corner[1], "grobwidth", list(key.gf)),
10 :     y = unit(y, "npc") + unit(0.5 - corner[2], "grobheight", list(key.gf)))
11 :     pushViewport(vp)
12 :     grid.draw(key.gf)
13 :     upViewport()
14 :     }

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business University of Wisconsin - Madison Powered By FusionForge