The R Project SVN
R
(root)/trunk/src/library/grid/tests/reg.R – Rev 37408
Rev 36737 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed
library(grid)# Unit conversionsstopifnot(round(convertX(unit(1, "inches"), "inches", valueOnly=TRUE) - 1,digits=5) == 0)stopifnot(round(convertX(unit(2.54, "cm"), "inches", valueOnly=TRUE) - 1,digits=5) == 0)stopifnot(round(convertX(unit(25.4, "mm"), "inches", valueOnly=TRUE) - 1,digits=5) == 0)stopifnot(round(convertX(unit(72.27, "points"), "inches", valueOnly=TRUE) - 1,digits=5) == 0)stopifnot(round(convertX(unit(1/12*72.27, "picas"), "inches",valueOnly=TRUE) - 1, digits=5) == 0)stopifnot(round(convertX(unit(72, "bigpts"), "inches", valueOnly=TRUE) - 1,digits=5) == 0)stopifnot(round(convertX(unit(1157/1238*72.27, "dida"), "inches",valueOnly=TRUE) - 1, digits=5) == 0)stopifnot(round(convertX(unit(1/12*1157/1238*72.27, "cicero"), "inches",valueOnly=TRUE) - 1, digits=5) == 0)stopifnot(round(convertX(unit(65536*72.27, "scaledpts"), "inches",valueOnly=TRUE) - 1, digits=5) == 0)stopifnot(round(convertX(unit(1/2.54, "inches"), "cm", valueOnly=TRUE) - 1,digits=5) == 0)stopifnot(round(convertX(unit(1/25.4, "inches"), "mm", valueOnly=TRUE) - 1,digits=5) == 0)stopifnot(round(convertX(unit(1/72.27, "inches"), "points",valueOnly=TRUE) - 1, digits=5) == 0)stopifnot(round(convertX(unit(1/(1/12*72.27), "inches"), "picas",valueOnly=TRUE) - 1, digits=5) == 0)stopifnot(round(convertX(unit(1/72, "inches"), "bigpts", valueOnly=TRUE) - 1,digits=5) == 0)stopifnot(round(convertX(unit(1/(1157/1238*72.27), "inches"), "dida",valueOnly=TRUE) - 1, digits=5) == 0)stopifnot(round(convertX(unit(1/(1/12*1157/1238*72.27), "inches"), "cicero",valueOnly=TRUE) - 1, digits=5) == 0)stopifnot(round(convertX(unit(1/(65536*72.27), "inches"), "scaledpts",valueOnly=TRUE) - 1, digits=5) == 0)pushViewport(viewport(width=unit(1, "inches"),height=unit(2, "inches"),xscale=c(0, 1),yscale=c(1, 3)))## Location versus dimensionstopifnot(round(convertY(unit(2, "native"), "inches", valueOnly=TRUE) -1, digits=5) == 0)stopifnot(round(convertHeight(unit(2, "native"), "inches", valueOnly=TRUE) -2, digits=5) == 0)## From "x" to "y" (the conversion is via "inches")stopifnot(round(convertUnit(unit(1, "native"), "native",axisFrom="x", axisTo="y", valueOnly=TRUE) -2, digits=5) == 0)## Convert several values at oncestopifnot(all(round(convertX(unit(c(0.5, 2.54), c("npc", "cm")),c("inches", "native"), valueOnly=TRUE) -c(0.5, 1), digits=5) == 0))popViewport()# packing a frame inside a framefg <- frameGrob()fg <- packGrob(fg, textGrob("Hi there"))fg2 <- frameGrob()fg2 <- packGrob(fg2, fg)fg2 <- packGrob(fg2, rectGrob(), side="bottom")fg2 <- packGrob(fg2, rectGrob(height=unit(1, "inches")), side="top")stopifnot(convertHeight(fg2$framevp$layout$heights, "inches",valueOnly=TRUE)[2] < 1)# Regression tests for:# A: grob[X|Y|Width|Height]# B: grid.[circle|lines|segments|rect|polygon|text|xspline|points]# C: at angles seq(0, 360, 45)[-1]# D: single AND multiple output# In each casem, set up a situation where the answer is (easily) known,# then compare the numeric answertest <- function(x, y) {on.exit(cat(paste("x =", x, " ; y =", y, "\n")))stopifnot(isTRUE(all.equal(x, y)))}testX <- function(x1, x2) {test(convertX(x1, "inches", valueOnly=TRUE),convertX(x2, "inches", valueOnly=TRUE))}testY <- function(y1, y2) {test(convertY(y1, "inches", valueOnly=TRUE),convertY(y2, "inches", valueOnly=TRUE))}testWidth <- function(w1, w2) {test(convertWidth(w1, "inches", valueOnly=TRUE),convertWidth(w2, "inches", valueOnly=TRUE))}testHeight <- function(h1, h2) {test(convertHeight(h1, "inches", valueOnly=TRUE),convertHeight(h2, "inches", valueOnly=TRUE))}######### CIRCLE######### A = X; B = circle; C = ALL; D = BOTHfor (theta in seq(0, 360, 45)[-1]) {testX(grobX(circleGrob(r=unit(.5, "inches")), theta),unit(.5, "npc") + cos(theta/180*pi)*unit(.5, "inches"))# Bounding box is 1" by 1"testX(grobX(circleGrob(x=unit(.5, "npc") + unit(c(-.25, .25), "inches"),y=unit(.5, "npc") + unit(c(-.25, .25), "inches"),r=unit(.25, "inches")),theta),switch(as.character(theta),"360"=, "315"=,"45"=unit(.5, "npc") + unit(.5, "inches"),"180"=, "225"=,"135"=unit(.5, "npc") - unit(.5, "inches"),"90"=,"270"=unit(.5, "npc")))}# A = Y; B = circle; C = ALL; D = BOTHfor (theta in seq(0, 360, 45)[-1]) {testY(grobY(circleGrob(r=unit(.5, "inches")), theta),unit(.5, "npc") + sin(theta/180*pi)*unit(.5, "inches"))# Bounding box is 1" by 1"testY(grobY(circleGrob(x=unit(.5, "npc") + unit(c(-.25, .25), "inches"),y=unit(.5, "npc") + unit(c(-.25, .25), "inches"),r=unit(.25, "inches")),theta),switch(as.character(theta),"90"=, "135"=,"45"=unit(.5, "npc") + unit(.5, "inches"),"270"=, "315"=,"225"=unit(.5, "npc") - unit(.5, "inches"),"180"=,"360"=unit(.5, "npc")))}# A = Width; B = circle; C = ALL; D = BOTHtestWidth(grobWidth(circleGrob(r=unit(.5, "inches"))),unit(1, "inches"))testWidth(grobWidth(circleGrob(x=unit(.5, "npc") +unit(c(-.25, .25), "inches"),y=unit(.5, "npc") +unit(c(-.25, .25), "inches"),r=unit(.25, "inches"))),unit(1, "inches"))# A = Height; B = circle; C = ALL; D = BOTHtestHeight(grobHeight(circleGrob(r=unit(.5, "inches"))),unit(1, "inches"))testHeight(grobHeight(circleGrob(x=unit(.5, "npc") +unit(c(-.25, .25), "inches"),y=unit(.5, "npc") +unit(c(-.25, .25), "inches"),r=unit(.25, "inches"))),unit(1, "inches"))######### RECT######### A = X; B = rect; C = ALL; D = BOTHfor (theta in seq(0, 360, 45)[-1]) {testX(grobX(rectGrob(width=unit(1, "inches"),height=unit(1, "inches")), theta),switch(as.character(theta),"360"=, "315"=,"45"=unit(.5, "npc") + unit(.5, "inches"),"180"=, "225"=,"135"=unit(.5, "npc") - unit(.5, "inches"),"90"=,"270"=unit(.5, "npc")))# Bounding box is 1" by 1"testX(grobX(rectGrob(x=unit(.5, "npc") + unit(c(-.25, .25), "inches"),y=unit(.5, "npc") + unit(c(-.25, .25), "inches"),width=unit(.5, "inches"),height=unit(.5, "inches")),theta),switch(as.character(theta),"360"=, "315"=,"45"=unit(.5, "npc") + unit(.5, "inches"),"180"=, "225"=,"135"=unit(.5, "npc") - unit(.5, "inches"),"90"=,"270"=unit(.5, "npc")))}# A = Y; B = rect; C = ALL; D = BOTHfor (theta in seq(0, 360, 45)[-1]) {testY(grobY(rectGrob(width=unit(1, "inches"),height=unit(1, "inches")), theta),switch(as.character(theta),"90"=, "135"=,"45"=unit(.5, "npc") + unit(.5, "inches"),"270"=, "315"=,"225"=unit(.5, "npc") - unit(.5, "inches"),"180"=,"360"=unit(.5, "npc")))# Bounding box is 1" by 1"testY(grobY(rectGrob(x=unit(.5, "npc") + unit(c(-.25, .25), "inches"),y=unit(.5, "npc") + unit(c(-.25, .25), "inches"),width=unit(.5, "inches"),height=unit(.5, "inches")),theta),switch(as.character(theta),"90"=, "135"=,"45"=unit(.5, "npc") + unit(.5, "inches"),"270"=, "315"=,"225"=unit(.5, "npc") - unit(.5, "inches"),"180"=,"360"=unit(.5, "npc")))}# A = Width; B = rect; C = ALL; D = BOTHtestWidth(grobWidth(rectGrob(width=unit(1, "inches"),height=unit(1, "inches"))),unit(1, "inches"))testWidth(grobWidth(rectGrob(x=unit(.5, "npc") +unit(c(-.25, .25), "inches"),y=unit(.5, "npc") +unit(c(-.25, .25), "inches"),width=unit(.5, "inches"),height=unit(.5, "inches"))),unit(1, "inches"))# A = Height; B = rect; C = ALL; D = BOTHtestHeight(grobHeight(rectGrob(width=unit(1, "inches"),height=unit(1, "inches"))),unit(1, "inches"))testHeight(grobHeight(rectGrob(x=unit(.5, "npc") +unit(c(-.25, .25), "inches"),y=unit(.5, "npc") +unit(c(-.25, .25), "inches"),width=unit(.5, "inches"),height=unit(.5, "inches"))),unit(1, "inches"))######### polygon# Four locations in a diamond######### A = X; B = polygon; C = ALL; D = BOTHfor (theta in seq(0, 360, 45)[-1]) {testX(grobX(polygonGrob(x=unit(.5, "npc") +unit(c(-.5, 0, .5, 0), "inches"),y=unit(.5, "npc") +unit(c(0, -.5, 0, .5), "inches")),theta),switch(as.character(theta),"45"=,"315"=unit(.5, "npc") + unit(.25, "inches"),"90"=,"270"=unit(.5, "npc"),"135"=,"225"=unit(.5, "npc") - unit(.25, "inches"),"180"=unit(.5, "npc") - unit(.5, "inches"),"360"=unit(.5, "npc") + unit(.5, "inches")))# NOTE: for polygons, even if there are multiple polygons,# we still produce edge of hull for ALL pointstestX(grobX(polygonGrob(x=unit(.5, "npc") +unit(c(-.5, -.25, 0, -.25,0, .25, .5, .25), "inches"),y=unit(.5, "npc") +unit(c(-.25, -.5, -.25, 0,.25, 0, .25, .5), "inches"),id=rep(1:2, each=4)),theta),switch(as.character(theta),"45"=unit(.5, "npc") + unit(.375, "inches"),"90"=unit(.5, "npc"),"135"=unit(.5, "npc") - unit(.125, "inches"),"180"=unit(.5, "npc") - unit(.25, "inches"),"225"=unit(.5, "npc") - unit(.375, "inches"),"270"=unit(.5, "npc"),"315"=unit(.5, "npc") + unit(.125, "inches"),"360"=unit(.5, "npc") + unit(.25, "inches")))}# A = Y; B = polygon; C = ALL; D = BOTHfor (theta in seq(0, 360, 45)[-1]) {testY(grobY(polygonGrob(x=unit(.5, "npc") +unit(c(-.5, 0, .5, 0), "inches"),y=unit(.5, "npc") +unit(c(0, -.5, 0, .5), "inches")),theta),switch(as.character(theta),"45"=,"135"=unit(.5, "npc") + unit(.25, "inches"),"90"=unit(.5, "npc") + unit(.5, "inches"),"180"=,"360"=unit(.5, "npc"),"225"=,"315"=unit(.5, "npc") - unit(.25, "inches"),"270"=unit(.5, "npc") - unit(.5, "inches")))# NOTE: for polygons, even if there are multiple polygons,# we still produce edge of hull for ALL pointstestY(grobY(polygonGrob(x=unit(.5, "npc") +unit(c(-.5, -.25, 0, -.25,0, .25, .5, .25), "inches"),y=unit(.5, "npc") +unit(c(-.25, -.5, -.25, 0,.25, 0, .25, .5), "inches"),id=rep(1:2, each=4)),theta),switch(as.character(theta),"45"=unit(.5, "npc") + unit(.375, "inches"),"90"=unit(.5, "npc") + unit(.25, "inches"),"135"=unit(.5, "npc") + unit(.125, "inches"),"180"=unit(.5, "npc"),"225"=unit(.5, "npc") - unit(.375, "inches"),"270"=unit(.5, "npc") - unit(.25, "inches"),"315"=unit(.5, "npc") - unit(.125, "inches"),"360"=unit(.5, "npc")))}# A = Width; B = polygon; C = ALL; D = BOTHtestWidth(grobWidth(polygonGrob(x=unit(.5, "npc") +unit(c(-.5, 0, .5, 0), "inches"),y=unit(.5, "npc") +unit(c(0, -.5, 0, .5), "inches"))),unit(1, "inches"))testWidth(grobWidth(polygonGrob(x=unit(.5, "npc") +unit(c(-.5, -.25, 0, -.25,0, .25, .5, .25), "inches"),y=unit(.5, "npc") +unit(c(-.25, -.5, -.25, 0,.25, 0, .25, .5), "inches"),id=rep(1:2, each=4))),unit(1, "inches"))# A = Height; B = polygon; C = ALL; D = BOTHtestHeight(grobHeight(polygonGrob(x=unit(.5, "npc") +unit(c(-.5, 0, .5, 0), "inches"),y=unit(.5, "npc") +unit(c(0, -.5, 0, .5), "inches"))),unit(1, "inches"))testHeight(grobHeight(polygonGrob(x=unit(.5, "npc") +unit(c(-.5, -.25, 0, -.25,0, .25, .5, .25), "inches"),y=unit(.5, "npc") +unit(c(-.25, -.5, -.25, 0,.25, 0, .25, .5), "inches"),id=rep(1:2, each=4))),unit(1, "inches"))######### TEXT######### A = X; B = text; C = ALL; D = BOTHstr <- "testcase"strw <- stringWidth(str)strh <- stringHeight(str)for (theta in seq(0, 360, 45)[-1]) {testX(grobX(textGrob(str), theta),switch(as.character(theta),"360"=unit(.5, "npc") + 0.5*strw,"135"=,"45"=unit(.5, "npc") + 1/tan(theta/180*pi)*0.5*strh,"315"=,"225"=unit(.5, "npc") - 1/tan(theta/180*pi)*0.5*strh,"180"=unit(.5, "npc") - 0.5*strw,"90"=,"270"=unit(.5, "npc")))# Bounding box is 1" by 1"testX(grobX(textGrob(str,x=unit(.5, "npc") + unit(c(-.5, .5), "inches"),y=unit(.5, "npc") + unit(c(-.5, .5), "inches"),hjust=c(0, 1), vjust=c(0, 1)),theta),switch(as.character(theta),"360"=, "315"=,"45"=unit(.5, "npc") + unit(.5, "inches"),"180"=, "225"=,"135"=unit(.5, "npc") - unit(.5, "inches"),"90"=,"270"=unit(.5, "npc")))}# A = Y; B = text; C = ALL; D = BOTHfor (theta in seq(0, 360, 45)[-1]) {testY(grobY(textGrob(str), theta),switch(as.character(theta),"90"=, "135"=,"45"=unit(.5, "npc") + 0.5*strh,"270"=, "315"=,"225"=unit(.5, "npc") - 0.5*strh,"180"=,"360"=unit(.5, "npc")))# Bounding box is 1" by 1"testY(grobY(textGrob(str,x=unit(.5, "npc") + unit(c(-.5, .5), "inches"),y=unit(.5, "npc") + unit(c(-.5, .5), "inches"),hjust=c(0, 1), vjust=c(0, 1)),theta),switch(as.character(theta),"90"=, "135"=,"45"=unit(.5, "npc") + unit(.5, "inches"),"270"=, "315"=,"225"=unit(.5, "npc") - unit(.5, "inches"),"180"=,"360"=unit(.5, "npc")))}# A = Width; B = text; C = ALL; D = BOTHtestWidth(grobWidth(textGrob(str)),strw)testWidth(grobWidth(textGrob(str,x=unit(.5, "npc") + unit(c(-.5, .5), "inches"),y=unit(.5, "npc") + unit(c(-.5, .5), "inches"),hjust=c(0, 1), vjust=c(0, 1))),unit(1, "inches"))# A = Height; B = text; C = ALL; D = BOTHtestHeight(grobHeight(textGrob(str)),strh)testHeight(grobHeight(textGrob(str,x=unit(.5, "npc") + unit(c(-.5, .5), "inches"),y=unit(.5, "npc") + unit(c(-.5, .5), "inches"),hjust=c(0, 1), vjust=c(0, 1))),unit(1, "inches"))# Determining unit lengthsstopifnot(length(unit.c(unit(1, "npc") + unit(1, "cm"), unit(2, "cm"))) == 2)stopifnot(length(unit.c(unit(1, "npc") + unit(1, "cm"), unit(2:4, "cm"))) == 4)stopifnot(length(unit.c(unit(1:3, "npc") + unit(1, "cm"), unit(2:4, "cm"))) == 6)