library("rplatypus")
field <- array(0, dim = c(2, 2, 3))
field[1, 1, 1] <- 1 # pointing down
field[2, 1, 2] <- 1 # pointing right
shown <- flow_to_colours(field)
# Two directions, two hues; and no vector, no colour.
!identical(shown[1, 1, ], shown[1, 2, ]) && all(shown[2, 3, ] == 0L)[1] TRUE