sandbox/dk/draw_palette/test_drawPalette.R

In dankelley/oce: Analysis of Oceanographic Data

library(oce)
library(cmocean)
if (file.exists("~/git/oce/R/imagep.R"))
    source("~/git/oce/R/imagep.R")
t <- 1
f <- function(e, msg="", cex=0.8)
{
    E <- paste(strwrap(deparse1(substitute(e)), 70, exdent=4), collapse="\n")
    eval(e)
    plot(0:1, 0:1, xlab="", ylab="", type="n", axes=FALSE)
    text(0.5, 0.9, paste("Test", t), cex=cex, font=2)
    text(0.5, 0.8, msg, cex=cex, font=2)
    text(0.0, 0.6, E, cex=cex, adj=0)
    par(mar=c(3,2,2,1))
    t <<- t + 1
}

if (!interactive())
    pdf("test_drawPalette.pdf")
par(mar=c(3,3,2,1))

f(drawPalette(zlim=c(0,20)),
    "Expect: continous gradient")
f(drawPalette(zlim=c(0,20), breaks=seq(0,20,1)),
    "Expect: stepped gradient")
f(drawPalette(zlim=c(0,20), breaks=seq(0,20,1), drawContours=TRUE),
    "Expect: stepped with lines")
f(drawPalette(zlim=c(0,20), breaks=c(0, 2, 5, 15, 20),
        at=c(0, 17, 20), labels = as.character(c(0, 17, 20))),
    "Expect: breaks at 0, 2, 5, 15, 20 with labels at 0, 17, 20")
# zlim should be inferred from breaks, if given
f(drawPalette(breaks=c(0, 2, 5, 15, 20)),
    "Expect: colour breaks 0, 2, 5, 15, 20; range 0 to 20")
# zlim should be inferred from at, if given
f(drawPalette(at=c(0, 2, 5, 15, 20)),
    "Expect: axis labels at 0, 2, 5, 15, 20; range 0 to 20")
f(drawPalette(breaks=c(0, 2, 5, 15, 20),
        at=c(0, 17, 20), labels = as.character(c(0, 17, 20))),
    "Expect: breaks at 0, 2, 5, 15, 20 with labels at 0, 17, 20")

# colormap
f(drawPalette(colormap=colormap(zlim=c(0,20))),
    "Expect: continous palette, set by colormap()")
f(drawPalette(colormap=colormap(zlim=c(0,20))),
    "Expect: continous palette, set by colormap()")
f(drawPalette(colormap=colormap(zlim=c(-3e3,3e3), col=cmocean("topo"))),
    "Expect: cmocean('topo') palette, set by colormap()")
f(drawPalette(colormap=colormap(zlim=c(0,20), col=oceColorsTemperature, breaks=11)),
    "Expect: 10-band temperature palette, set by colormap()")

if (!interactive())
    dev.off()