test_that("stat_count() checks the aesthetics", {
p <- ggplot(mtcars) + stat_count()
expect_snapshot_error(ggplot_build(p))
p <- ggplot(mtcars) + stat_count(aes(factor(gear), mpg))
expect_snapshot_error(ggplot_build(p))
})
Generated by dwww version 1.15 on Sat May 18 06:57:25 CEST 2024.