data-raw/hex.R

In leonawicz/legocolors: Official Lego Color Palettes

#install.packages("hexSticker")
library(hexSticker)
library(ggplot2)
pkg <- basename(getwd())
user <- "leonawicz"
account <- "github"

url <- paste0(user, ".", account, ".io/", pkg)
out <- paste0("man/figures/logo.png")
dir.create("man/figures", showWarnings = FALSE)

hex_plot <- function(out, mult = 1){
  g <- ggplot() + theme_void() + theme_transparent()
  sticker(g, package = pkg, p_y = 1, p_color = "black", p_size = 20,
          h_color = "black", h_fill = "#FAF15B", h_size =  1.4,
          url = url, u_color = "black", u_size = 3, filename = out)
}

hex_plot(out)