The R Project SVN R

Rev

Rev 76298 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 76298 Rev 77889
Line 1... Line 1...
1 
library(grid)
 1 
library(grid)
2 
 
 2 
 
3 
# Physical units in viewport of height 0
 3 
# Physical units in viewport of height 0
4 
pushViewport(viewport(h=0))
 4 
pushViewport(viewport(height = 0))
5 
stopifnot(is.finite(convertHeight(unit(72, "bigpts"), "inches")))
 5 
stopifnot(is.finite(convertHeight(unit(72, "bigpts"), "inches", valueOnly = TRUE)))
6 
popViewport()
 6 
popViewport()
7 
 
 7 
 
8 
# The gpar font settings for a grob should affect the grob itself
 8 
# The gpar font settings for a grob should affect the grob itself
9 
stopifnot(round(convertHeight(grobHeight(rectGrob(height=unit(1, "lines"),
9 
stopifnot(round(convertHeight(grobHeight(rectGrob(height=unit(1, "lines"),
10 
                                                  gp=gpar(lineheight=2))),
 10 
                                                  gp=gpar(lineheight=2))),