SCM

SCM Repository

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

View of /pkg/R/panel.key.R

Parent Directory Parent Directory | Revision Log Revision Log


Revision 148 - (download) (annotate)
Tue Jun 1 11:51:52 2010 UTC (6 years, 10 months ago) by felix
File size: 462 byte(s)
dos2unix
## extracted and simplified from lattice:::plot.trellis

panel.key <-
    function(text, ..., corner = c(0, 1), x = corner[1], y = corner[2])
{
    key <- simpleKey(text, ...)
    key.gf <- draw.key(key, draw = FALSE)
    vp <- viewport(x = unit(x, "npc") + unit(0.5 - corner[1], "grobwidth", list(key.gf)),
                   y = unit(y, "npc") + unit(0.5 - corner[2], "grobheight", list(key.gf)))
    pushViewport(vp)
    grid.draw(key.gf)
    upViewport()
}

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