colours not ok

[mdsumner]

library(ximage)

## ok
ximage(matrix(c(0, 1)))

## not ok
ximage(matrix(c(1)))

## not ok
ximage(matrix(c(1, NA)))


## not ok
ximage(matrix(c(1, NaN)))

## ok
ximage(matrix(c(1, NaN, 2)))


## ok
ximage(matrix(c(1, NA, 2)))

^{Created on 2022-09-12 with reprex v2.0.2}