data-raw/sticker/sticker.R

In baumer-lab/fec12: Data Package for 2012 Federal Elections

library(hexSticker)
library(magick)

flag <- image_read("https://images.all-free-download.com/images/graphiclarge/american_flag_312241.jpg")
sticker(
  flag, package = "fec12", 
  p_color = "#002868", h_color = "#BF0A30", h_fill = "#FFFFFF",
  filename = here::here("data-raw", "sticker", "hex_fec12.png"), 
  p_size = 18, s_x = 1, s_y = .75, s_width = 1.3, s_height = 1.8
)