tests/testthat/test-geom-hdr-rug.R

In ropenscilabs/gghdr: Visualisation of Highest Density Regions in 'ggplot2'

library(ggplot2)

set.seed(5)
test_that("hdr rug plot draws correctly", {
  hdr_rugplot <- ggplot(faithful, aes(x = eruptions)) +
    geom_hdr_rug() +
    theme_bw()

  vdiffr::expect_doppelganger(
    "hdr rugplot",
    hdr_rugplot
  )
})