The R Project SVN R

Rev

Rev 28140 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 28140 Rev 28156
Line 65... Line 65...
65 
setHook("persp", .newplot.hook)
 65 
setHook("persp", .newplot.hook)
66 
rm(.newplot.hook)
 66 
rm(.newplot.hook)
67 
## add some hooks to label plot pages for grid graphics
 67 
## add some hooks to label plot pages for grid graphics
68 
.gridplot.hook <- function()
 68 
.gridplot.hook <- function()
69 
{
 69 
{
70 
    push.viewport(viewport(width=unit(1, "npc") - unit(1, "lines"),
 70 
    pushViewport(viewport(width=unit(1, "npc") - unit(1, "lines"),
71 
			   x=0, just="left"))
 71 
			  x=0, just="left"))
72 
    grid.text(paste("help(", ..nameEx, ")"),
72 
    grid.text(paste("help(", ..nameEx, ")"),
73 
	      x=unit(1, "npc") + unit(0.5, "lines"),
 73 
	      x=unit(1, "npc") + unit(0.5, "lines"),
74 
	      y=unit(0.8, "npc"), rot=90,
74 
	      y=unit(0.8, "npc"), rot=90,
75 
	      gp=gpar(col="orchid"))
 75 
	      gp=gpar(col="orchid"))
76 
}
 76 
}