White and black show as greyNA

[rjake]

Add test length(color_table$color_name) == n_distinct(color_table$color_name)

color_table |> 
  filter(color == "grey") |> 
  pull(color_name) |> 
  sort()

# [1] "grey"   "grey1"  "grey2"  "grey3"  "grey4"  "grey5"  "greyNA" "greyNA"
#                                                                ^^       ^^