Add tests for patterns and gradients

Thanks again @trevorld
082641a#commitcomment-143136554

Author: wilkox

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: treemapify
 Title: Draw Treemaps in 'ggplot2'
-Version: 2.5.6.9003
+Version: 2.5.6.9004
 Authors@R: c(
   person("David", "Wilkins", , "[email protected]", role = c("aut", "cre"),
          comment = c(ORCID = "0000-0002-3385-8981")),
@@ -15,7 +15,8 @@ Imports:
     ggplot2 (>= 3.5),
     ggfittext (>= 0.5.0),
     grid (>= 3.1),
-    cli (>= 3.6.1)
+    cli (>= 3.6.1),
+    svglite
 Suggests: 
     knitr,
     rmarkdown,

NAMESPACE

@@ -18,3 +18,4 @@ import(grid)
 importFrom(ggplot2,alpha)
 importFrom(ggplot2,layer)
 importFrom(grid,roundrectGrob)
+importFrom(svglite,svglite)

R/treemapify-package.R

@@ -0,0 +1,7 @@
+#' @keywords internal
+"_PACKAGE"
+
+## usethis namespace: start
+#' @importFrom svglite svglite
+## usethis namespace: end
+NULL

inst/WORDLIST

@@ -5,6 +5,7 @@ GeomTreemap
 GeomTreemapText
 HDI
 Huizing
+ORCID
 Squarified
 Subgrouping
 TCVG

man/treemapify-package.Rd

@@ -105,8 +105,19 @@ test_that("plots look the way they should", {
                                            list(color = c("red", "black"))))
   })
 
-  # vdiffr does not support patterns
-  expect_no_error({
+})
+
+test_that("pattern fills work", {
+
+  skip_if_not_installed("svglite", "2.1.3")
+
+  svglite_writer <- function(plot, file, ...) {
+    svglite::svglite(file)
+    print(plot)
+    dev.off()
+  }
+
+  vdiffr::expect_doppelganger("linearGradient fills", {
     patterns <- list(
       linearGradient(c("red", "blue"), group = FALSE),
       linearGradient(c("yellow", "orange"), group = FALSE),
@@ -117,6 +128,16 @@ test_that("plots look the way they should", {
     ggplot2::ggplot(G4, ggplot2::aes(area = gdp_mil_usd, fill = country)) +
       geom_treemap() +
       ggplot2::scale_fill_manual(values = patterns)
-  })
+  }, writer = svglite_writer)
+
+  vdiffr::expect_doppelganger("chequer pattern fill", {
+    chequer_pattern <- pattern(
+        rectGrob(x = c(0.25, 0.75), y = c(0.25, 0.75), width = 0.5, height = 0.5),
+        width = unit(5, "mm"), height = unit(5, "mm"), extend = "repeat",
+        gp = gpar(fill = "limegreen")
+    )
+    ggplot2::ggplot(G20, ggplot2::aes(area = gdp_mil_usd, fill = country)) +
+      geom_treemap(fill = chequer_pattern)
+  }, writer = svglite_writer)
 
 })