tests/testthat/test-vis-guide_colorstrip.R

In eliocamp/metR: Tools for Easier Analysis of Meteorological Fields

skip_on_ci()
skip_if_not_installed("vdiffr")

library(vdiffr)
library(ggplot2)

context("guide_colourstrip")
data(geopotential)
geo <- geopotential[date == date[1]]
base <- ggplot(geo, aes(lon, lat)) +
    geom_raster(aes(fill = gh))

test_that("guide works", {
    expect_doppelganger("default-guide_colourstrip",
                        base + guides(colour = guide_colourbar(),   # https://github.com/tidyverse/ggplot2/issues/6306
                                      fill = guide_colourstrip()))
    expect_doppelganger("inside-guide_colorstip",
                        base + guides(colour = guide_colourbar(),
                                      fill = guide_colourstrip(inside = TRUE)))
    expect_doppelganger("reverse-guide_colorstip",
                        base + guides(colour = guide_colourbar(),
                                      fill = guide_colourstrip(reverse = TRUE)))
    expect_doppelganger("horizontal-direction",
                        base + guides(colour = guide_colourbar(),
                                      fill = guide_colourstrip(direction = "horizontal", barwidth = 10)) +
                            theme(legend.position = "bottom"))

    expect_doppelganger("colorstrip_inside",
        base + guides(fill = guide_colourstrip(inside = TRUE))
    )
})