tests/testthat/test-geometry-patterns.R

In coolbutuseless/ggpattern: 'ggplot2' Pattern Geoms

test_that("geometry patterns work as expected", {
    skip_on_ci()
    skip_on_cran()
    skip_if_not_installed("vdiffr")
    library("vdiffr")

    df <- data.frame(trt = c("a", "b", "c"),
                     outcome = c(2.3, 1.9, 3.2))

    pattern_ggplot <- function(pattern) {
        ggplot(df, aes(trt, outcome)) +
            geom_col_pattern(aes(fill=trt),
                             colour='black',
                             pattern = pattern) +
            theme_bw() +
            labs(title = pattern)
    }

    expect_doppelganger("circle", pattern_ggplot("circle"))
    expect_doppelganger("crosshatch", pattern_ggplot("crosshatch"))
    expect_doppelganger("none", pattern_ggplot("none"))
    expect_doppelganger("pch", pattern_ggplot("pch"))
    expect_doppelganger("polygon_tiling", pattern_ggplot("polygon_tiling"))
    expect_doppelganger("regular_polygon", pattern_ggplot("regular_polygon"))
    expect_doppelganger("stripe", pattern_ggplot("stripe"))
    expect_doppelganger("weave", pattern_ggplot("weave"))
})