test-compiler-point-fill-numeric.R

acontext("a_geom_point(a_aes(fill=numeric))")

viz <-
  list(fill=a_plot()+
       a_geom_point(a_aes(Sepal.Width, Petal.Width,
                      fill=Petal.Length),
                  data=iris, color="black", size=5, pch=21),
       size=a_plot()+
       a_geom_point(a_aes(Sepal.Width, Petal.Width,
                      size=Sepal.Length),
                  data=iris, color="black", fill="red", pch=21),
       color=a_plot()+
       a_geom_point(a_aes(Sepal.Width, Petal.Width,
                      color=Petal.Length),
                  data=iris, size=5)+
       a_scale_color_continuous("petal length"))

test_that("legends are produced", {
  info <- animint2dir(viz, open.browser=FALSE)
  expect_identical(names(info$plots$fill$legend), "Petal.Length")
  expect_identical(names(info$plots$size$legend), "Sepal.Length")
  expect_identical(names(info$plots$color$legend), "petal length")
})