article17: Article17 Functions

library(magick)
library(hexSticker)
library(ggplot2)
library(magrittr)

# create hexagon mask
ggplot() +
  geom_hexagon(size = 1.2, fill = "black", color = "black") +
  theme_sticker() +
  ggsave("./man/figures/mask.png")

# apply mask
# https://stackoverflow.com/questions/40066806/most-efficient-way-to-crop-image-to-circle-in-r
mask <- image_read("./man/figures/mask.png") %>% 
  image_scale("1575x1575")

image <- image_read("./man/figures/flag_yellow_high.jpg") %>%
  image_convert(format = "png") %>% 
  image_crop("1575x1575+394+20") #<width>x<height>{+-}<xoffset>{+-}<yoffset>
  
image <- image_composite(mask, image, "plus") %>%
  image_transparent("white", fuzz = 20L)

# add text
image %>% 
  image_annotate("article17", size = 150L, gravity = "center", 
                 color = "#FFCC00", style = "italic",
                 strokecolor = "#9E8508",  # 9E8508 = European star yellow
                 font = "sans") %>% 
  image_write(path = "./man/figures/eu_flag.png", format = "png")

# create hex sticker logo
sticker(subplot = "./man/figures/eu_flag.png", s_x = 1, s_y = 1, s_width = 1, s_height = 1, 
        package = NA_character_,
        h_fill = "#003399", h_color = NA_character_, #003399 = European flag blue
        asp = 0.8,
        filename = "man/figures/logo_1.png")

# format hex sticker - make all background blue
 image_read("./man/figures/logo_1.png") %>%
   image_fill("white", point = "+200+200", fuzz = 60) %>%
   image_fill("#003399", point = "+200+200") %>%
   image_write(path = "./man/figures/logo_2.png", format = "png")
 
# re-create hex sticker logo - add border
sticker(subplot = "./man/figures/logo_2.png", s_x = 1, s_y = 1, s_width = 1, s_height = 1, 
         package = NA_character_,
         h_fill = "#003399", h_color = "#9EB7F0",
         asp = 1,
         filename = "man/figures/logo_3.png")

# format hex sticker - make outside transparent
image_read("./man/figures/logo_3.png") %>%
  image_fill("white", "+200+580") %>%
  image_fill("white", "+200+10") %>%
  image_transparent("white") %>% 
  image_write(path = "./man/figures/logo_4.png", format = "png")

# format JNCC logo
jncc <- image_read("./man/figures/jncc.jpg") %>% 
  image_convert(format = "png") %>% 
  image_rotate(330L) %>%
  image_threshold(type = "white", threshold = "70%") %>%
  image_threshold(type = "black", threshold = "30%") %>%
  image_transparent("white") %>%  
  image_fill("#9EB7F0", "+200+500") %>%
  image_fill("#9EB7F0", "+400+500") %>%
  image_fill("#9EB7F0", "+475+400") %>%
  image_fill("#9EB7F0", "+600+350") %>%
  image_fill("#9EB7F0", "+750+250") %>%
  image_scale("78x100") %T>% 
  image_write(path = "./man/figures/jncc.png", format = "png")

# add jncc logo
image_read("./man/figures/logo_4.png") %>% 
  image_composite(jncc, offset = "+430+420") %>% 
  image_write(path = "./man/figures/logo.png", format = "png")