tests/testthat/test-Col2Hex.R

In PlotTools: Extended Tools for Continuous Legends, Polygon Manipulation, and Visual Display of Categorical Data

test_that("Col2Hex()", {
  expect_equal(
    Col2Hex(c("peachpuff", "blue"), TRUE),
    c("#FFDAB9FF", "#0000FFFF")
  )
  expect_equal(
    Col2Hex(c("#FFDAB9AA", "blue"), TRUE),
    c("#FFDAB9AA", "#0000FFFF")
  )
  expect_equal(
    Col2Hex(1:3),
    if (getRversion() >= "4.0.0")
      c("#000000", "#DF536B", "#61D04F")
    else
      c("#000000", "#FF0000", "#00CD00") # old colours
  )
})