chore: Update logo

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: ggpattern
 Type: Package
 Title: 'ggplot2' Pattern Geoms
-Version: 1.3.2-3
+Version: 1.3.2-4
 Authors@R: c(person("Mike", "FC", role = "aut"),
              person("Trevor L.", "Davis", role = c("aut", "cre"),
                     email = "trevor.l.davis@gmail.com",

README.Rmd

@@ -250,7 +250,6 @@ See the vignette on developing patterns: [`vignette("developing-patterns", packa
 #### Other examples
 
 * [Animating Patterns with `{gganimate}`](https://trevorldavis.com/R/ggpattern/dev/articles/gganimate.html): `vignette("gganimate", package = "ggpattern")`
-* [Creating the Logo in R](https://trevorldavis.com/R/ggpattern/dev/articles/create-logo.html): `vignette("create-logo", package = "ggpattern")`
 
 # Limitations
 

README.md

@@ -217,7 +217,6 @@ See the vignette on developing patterns: [`vignette("developing-patterns", packa
 #### Other examples
 
 * [Animating Patterns with `{gganimate}`](https://trevorldavis.com/R/ggpattern/dev/articles/gganimate.html): `vignette("gganimate", package = "ggpattern")`
-* [Creating the Logo in R](https://trevorldavis.com/R/ggpattern/dev/articles/create-logo.html): `vignette("create-logo", package = "ggpattern")`
 
 # Limitations
 

data-raw/logo.R

@@ -0,0 +1,66 @@
+library("grid")
+library("ggplot2")
+library("ggpattern")
+library("piecepackr")
+
+draw_logo <- function(bleed = FALSE, cut = FALSE) {
+	angle <- seq(0, 2 * pi, length.out = 7) + pi / 6
+	polygon_df <- data.frame(
+		angle = angle,
+		x = cos(angle),
+		y = sin(angle)
+	)
+	p <- ggplot(polygon_df) +
+		geom_polygon_pattern(
+			aes(x = x, y = y),
+			fill = "white",
+			colour = "black",
+			pattern_spacing = 0.15,
+			pattern_density = 0.4,
+			pattern_fill = "lightblue",
+			pattern_colour = "#002366",
+			pattern_angle = 45
+		) +
+		labs(title = "ggpattern") +
+		coord_equal() +
+		theme_bw(25) +
+		theme(axis.title = element_blank())
+
+	plot_grob <- ggplotGrob(p)
+
+	w <- 4.5
+	grid.newpage()
+	pushViewport(viewport(width = unit(w, "inches"), height = unit(w, "inches")))
+	hex <- pp_shape("convex6")
+
+	# Draw hex background
+	grid.draw(hex$shape(gp = gpar(fill = "white", col = "black", lwd = 4)))
+
+	# Draw ggplot grob clipped to the hex shape via a mask
+	hex_mask <- as.mask(hex$shape(gp = gpar(fill = "white", col = NA)))
+	pushViewport(viewport(mask = hex_mask))
+	pushViewport(viewport(x = 0.45, height = unit(0.8 * w, "inches")))
+	grid.draw(plot_grob)
+	popViewport()
+	popViewport()
+
+	# Redraw hex border on top to clean up edges
+	grid.draw(hex$shape(gp = gpar(fill = NA, col = "black", lwd = 4)))
+
+	if (isTRUE(bleed) && isTRUE(cut)) {
+		pushViewport(viewport(width = unit(5 / 6, "npc"), height = unit(5 / 6, "npc")))
+		grid.draw(hex$shape(gp = gpar(fill = "transparent", col = "orange")))
+		popViewport()
+	}
+
+	popViewport()
+}
+
+w <- 4.5
+svg("man/figures/logo.svg", width = w, height = w, bg = "transparent")
+draw_logo()
+dev.off()
+
+png("man/figures/logo.png", width = w, height = w, units = "in", res = 72, bg = "transparent")
+draw_logo()
+dev.off()