26 lines
633 B
R
26 lines
633 B
R
test_that("ax_colors_manual works", {
|
|
ax1 <- apex(
|
|
data = mtcars,
|
|
type = "scatter",
|
|
mapping = aes(x = wt, y = mpg, fill = cyl)
|
|
) %>%
|
|
ax_colors_manual(list(
|
|
"4" = "steelblue",
|
|
"6" = "firebrick",
|
|
"8" = "forestgreen"
|
|
))
|
|
ax2 <- apex(
|
|
data = mtcars,
|
|
type = "scatter",
|
|
mapping = aes(x = wt, y = mpg, fill = cyl)
|
|
) %>%
|
|
ax_colors_manual(list(
|
|
"4" = "steelblue",
|
|
"8" = "forestgreen",
|
|
"6" = "firebrick"
|
|
))
|
|
expect_is(ax1$x$ax_opts$colors, "list")
|
|
expect_length(ax1$x$ax_opts$colors, 3)
|
|
expect_identical(ax1$x$ax_opts$colors, ax2$x$ax_opts$colors)
|
|
})
|