tests/testthat/test-geom_casting.R

In ggfoundry: Shape Foundry & Geom for 'ggplot2'

test_that("fills & manual shapes", {
  file <- tempfile(fileext = ".png")

  p <- ggplot2::ggplot(mtcars, ggplot2::aes(wt, mpg, fill = factor(cyl))) +
    geom_casting(ggplot2::aes(shape = factor(cyl))) +
    ggplot2::scale_shape_manual(values = c("violin", "box", "dendro"))

  ggplot2::ggsave(file, p, "png")

  expect_snapshot_file(file)

  unlink(file)
})

test_that("bad shape", {
  expect_snapshot(
    ggplot2::ggplot(mtcars, ggplot2::aes(wt, mpg)) +
      geom_casting(shape = "non-shape"),
    error = TRUE
  )
})

test_that("available sets & shapes", {
  expect_snapshot(
    shapes_cast()
  )
})

test_that("shapes clipped when zooming", {
  file <- tempfile(fileext = ".png")

  p <- ggplot2::ggplot(mtcars, ggplot2::aes(wt, mpg)) +
    geom_casting(size = 0.1, shape = "violin") +
    ggplot2::geom_point() +
    ggplot2::coord_cartesian(xlim = c(1, 4))

  ggplot2::ggsave(file, p, "png")

  expect_snapshot_file(file)

  unlink(file)
})