inst/tinytest/test-30-adaptation.R

using("shades")

primaries <- shade(c("red", "green", "blue"))
expect_equal_shades(dichromat(primaries), c("#4D4222","#FFF600","#0027FF"))
expect_equal_shades(dichromat(primaries,"protanopic"), c("#4D4222","#FFF600","#0027FF"))
expect_equal_shades(dichromat(primaries,"deuteranopic"), c("#C5A700","#D0B335","#0068FE"))
expect_equal_shades(dichromat(primaries,"tritanopic"), c("#FF0050","#00FBFF","#372828"))

Try the shades package in your browser

Any scripts or data that you put into this service are public.

shades documentation built on July 3, 2026, 1:07 a.m.