tests/testthat/test-palettes.R

5   expect_equal(dim(viridis.map), c(2048, 4))
8   expect_equal(viridis(1, option = "D"), "#440154FF")
9   expect_equal(viridis(1, alpha = 0, option = "D"), "#44015400")
10   expect_equal(viridis(1, begin = 1, end = 0, option = "D"), "#FDE725FF")
11   expect_equal(viridis(1, alpha = 0, begin = 1, end = 0, option = "D"), "#FDE72500")
12   expect_equal(viridis(2, alpha = 0, begin = 1, end = 0, direction = -1, option = "D"),
16   expect_equal(viridis(1, option = "C"), "#0D0887FF")
17   expect_equal(viridis(1, alpha = 0, option = "C"), "#0D088700")
18   expect_equal(viridis(1, begin = 1, end = 0, option = "C"), "#F0F921FF")
19   expect_equal(viridis(1, alpha = 0, begin = 1, end = 0, option = "C"), "#F0F92100")
20   expect_equal(viridis(2, alpha = 0, begin = 1, end = 0, direction = -1, option = "C"),
24   expect_equal(viridis(1, option = "B"), "#000004FF")
25   expect_equal(viridis(1, alpha = 0, option = "B"), "#00000400")
26   expect_equal(viridis(1, begin = 1, end = 0, option = "B"), "#FCFFA4FF")
27   expect_equal(viridis(1, alpha = 0, begin = 1, end = 0, option = "B"), "#FCFFA400")
28   expect_equal(viridis(2, alpha = 0, begin = 1, end = 0, direction = -1, option = "B"),
32   expect_equal(viridis(1, option = "A"), "#000004FF")
33   expect_equal(viridis(1, alpha = 0, option = "A"), "#00000400")
34   expect_equal(viridis(1, begin = 1, end = 0, option = "A"), "#FCFDBFFF")
35   expect_equal(viridis(1, alpha = 0, begin = 1, end = 0, option = "A"), "#FCFDBF00")
36   expect_equal(viridis(2, alpha = 0, begin = 1, end = 0, direction = -1, option = "A"),
40   expect_equal(viridis(1, option = "E"), "#00204DFF")
41   expect_equal(viridis(1, alpha = 0, option = "E"), "#00204D00")
42   expect_equal(viridis(1, begin = 1, end = 0, option = "E"), "#FFEA46FF")
43   expect_equal(viridis(1, alpha = 0, begin = 1, end = 0, option = "E"), "#FFEA4600")
44   expect_equal(viridis(2, alpha = 0, begin = 1, end = 0, direction = -1, option = "E"),
48   expect_equal(viridis(1, option = "F"), "#03051AFF")
49   expect_equal(viridis(1, alpha = 0, option = "F"), "#03051A00")
50   expect_equal(viridis(1, begin = 1, end = 0, option = "F"), "#FAEBDDFF")
51   expect_equal(viridis(1, alpha = 0, begin = 1, end = 0, option = "F"), "#FAEBDD00")
52   expect_equal(viridis(2, alpha = 0, begin = 1, end = 0, direction = -1, option = "F"),
56   expect_equal(viridis(1, option = "G"), "#0B0405FF")
57   expect_equal(viridis(1, alpha = 0, option = "G"), "#0B040500")
58   expect_equal(viridis(1, begin = 1, end = 0, option = "G"), "#DEF5E5FF")
59   expect_equal(viridis(1, alpha = 0, begin = 1, end = 0, option = "G"), "#DEF5E500")
60   expect_equal(viridis(2, alpha = 0, begin = 1, end = 0, direction = -1, option = "G"),
64   expect_equal(viridis(1, option = "H"), "#30123BFF")
65   expect_equal(viridis(1, alpha = 0, option = "H"), "#30123B00")
66   expect_equal(viridis(1, begin = 1, end = 0, option = "H"), "#7A0403FF")
67   expect_equal(viridis(1, alpha = 0, begin = 1, end = 0, option = "H"), "#7A040300")
68   expect_equal(viridis(2, alpha = 0, begin = 1, end = 0, direction = -1, option = "H"),
80   expect_equal(viridis(0), character(0))
81   expect_equal(mako(0), character(0))
82   expect_equal(viridis(0, begin = 0.9, end = 0.2), character(0))
83   expect_equal(nrow(viridisMap(0)), 0)
88   expect_equal(magma(3), c("#000004FF", "#B63679FF", "#FCFDBFFF"))
89   expect_equal(inferno(3), c("#000004FF", "#BB3754FF", "#FCFFA4FF"))
90   expect_equal(plasma(3), c("#0D0887FF", "#CC4678FF", "#F0F921FF"))
91   expect_equal(cividis(3), c("#00204DFF", "#7C7B78FF", "#FFEA46FF"))
92   expect_equal(rocket(3), c("#03051AFF", "#CB1B4FFF", "#FAEBDDFF"))
93   expect_equal(mako(3), c("#0B0405FF", "#357BA2FF", "#DEF5E5FF"))
94   expect_equal(turbo(3), c("#30123BFF", "#A2FC3CFF", "#7A0403FF"))