tests/testthat/test-use_pal.R

test_that("colour palettes selection is corrupted", {
  selection <- colour_palettes_collection[["porsche"]]
  pal <- c("#000000","#E69f00","#56b4e9","#009e73","#f0e442","#0072b2","#d55e00","#cc79a7","#999999")
  expect_setequal(pal, selection)
})
dominikjung42/dstools documentation built on June 16, 2024, 2:40 a.m.