context("Reading complex RGB images")
require(pixmap)
test_that("complex RGB BMP image as pixmap is identical to pnm loaded by read.pnm", {
pnmfile=system.file("images/5HT1bMARCM-F000001_seg001_lsm.pnm", package = 'bmp')
bmpfile=sub("pnm$","bmp",pnmfile)
# test red green and blue channel separately
b = read.bmp(bmpfile)
pb=pixmapRGB(b)
p = read.pnm(pnmfile)
expect_that(pb,equals(p))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.