Normal color vision option in dichromat (identity function)

[brianwdavis]

I was using purrr to simulate a palette with all the color deficiencies, which works fine. But it would be great if I could also include an option for "normal", which would return the palette unchanged for comparison.

library(magrittr)
library(purrr)

c("prot", "deut", "trit") %>% 
  map(~dichromat(blues9, type = .))

Having an option for "normal" inside that first vector would mean being able to generate a figure like this in just a couple lines:

I imagine this is an easier feature than vectorizing dichromat to accept a vector of arguments to type =.

[jonclayden]

Good thought, thanks. In fact, vectorising over type should be manageable and would be consistent with other package functions, so I'll look into it.

[jonclayden]

OK, with the current development version you should be able to do things like

blues9 %>% dichromat(c("n","p","d","t")) %>% swatch

If you could check that it works for you, I'll close the issue. Thanks again for the suggestion!

[brianwdavis]

Looks great to me, thanks!