inst/tinytest/test_palettes.R

In tesselle/arkhe: Tools for Cleaning Rectangular Data

# Colors =======================================================================
bw <- c("black", "white")

expect_identical(c("#FFFFC8", "#F39200", "#7D0025"), palette_color_continuous(c(1, 2, 3), NULL))
expect_identical(c("#000000", "#7F7F7F", "#FFFFFF"), palette_color_continuous(c(1, 2, 3), colorRamp(bw)))
expect_identical(c("#000000", "#7F7F7F", "#FFFFFF"), palette_color_continuous(c(0, 0.5, 1), bw))
expect_identical(c("#000000", "#7F7F7F", "#FFFFFF"), palette_color_continuous(c(1, 2, 3), bw))
expect_identical(c("#000000", "#DDDDDD", "#FFFFFF"), palette_color_continuous(c(1, NA, 3), bw))

expect_identical(c("#000000", "#1C1C1C", "#383838"), palette_color_continuous(c(1, 2, 3), bw, c(1, 2, 10)))
expect_identical(rev(c("#000000", "#7F7F7F", "#FFFFFF")), palette_color_continuous(c(1, 2, 3), rev(bw)))

expect_identical(c("#4B0055", "#4A0E5F", "#462169"), palette_color_discrete(LETTERS[1:3], NULL, LETTERS))
expect_identical(c("#000000", "#0A0A0A", "#141414"), palette_color_discrete(LETTERS[1:3], bw, LETTERS))
expect_identical(c("#000000", "#0A0A0A", "#141414"), palette_color_discrete(LETTERS[1:3], colorRampPalette(bw), LETTERS))
expect_identical(c("#4477AA", "#EE6677", "#228833"), palette_color_discrete(LETTERS[1:3], c("#4477AA", "#EE6677", "#228833"), LETTERS[1:3]))
expect_identical(c("#DDDDDD", "#DDDDDD", "#DDDDDD"), palette_color_discrete(c(NA, NA, NA), bw, LETTERS[1:3]))
expect_identical(c("#000000", "#7F7F7F", "#FFFFFF"), palette_color_discrete(LETTERS[1:3], bw, rev(LETTERS[1:3])))
expect_identical(rev(c("#000000", "#7F7F7F", "#FFFFFF")), palette_color_discrete(LETTERS[1:3], bw, rev(LETTERS[1:3]), ordered = TRUE))

# Symbols ======================================================================
expect_warning(palette_shape(LETTERS, NULL))

expect_identical(c(16, 16, 16, 17, 17, 15), palette_shape(c("A", "A", "A", "B", "B", "C")))
expect_identical(c(1, 1, 1, 2, 2, 3), palette_shape(c("A", "A", "A", "B", "B", "C"), c(1, 2, 3)))
expect_identical(c(1, 1, 1, 1, 1, 1), palette_shape(c("A", "A", "A", "B", "B", "C"), c(1, 1, 1)))
expect_identical(c(1, 1, 1, 1, 1, 1), palette_shape(c("A", "A", "A", "B", "B", "C"), c(1, 1, 1)))

expect_identical(c(16, 16, 16, 17, 17, 15), palette_shape(c("A", "A", "A", "B", "B", "C"), NULL, c("C", "B", "A")))
expect_identical(c(15, 15, 15, 17, 17, 16), palette_shape(c("A", "A", "A", "B", "B", "C"), NULL, c("C", "B", "A"), ordered = TRUE))

# Size =========================================================================
expect_warning(palette_size(c("A", "A", "A", "B", "B", "C")))

expect_equal(c(1/3, 2/3, 3/3), palette_size(c(1, 2, 3), NULL))
expect_identical(c(4, 4, 4), palette_size(c(1, 2, 3), 4))
expect_identical(c(4, 4.5, 5), palette_size(c(1, 2, 3), c(4, 5)))
expect_identical(c(4, NA, 5), palette_size(c(1, NA, 3), c(4, 5)))