inst/tinytest/test_compare.R

In khroma: Colour Schemes for Scientific Data Visualization

# Compare ======================================================================
if (requireNamespace("spacesXYZ", quietly = TRUE)) {
  col <- colour("okabe ito", names = TRUE)(8)

  comp <- compare(col, metric = 2000, diag = FALSE, upper = FALSE)
  expect_equal_to_reference(comp, file = "_snaps/compare.rds")
}