hex/hexSitcker.R

In carlosyanez/customthemes: custom theming for ggplot, for personal use

# make sure that {librarian} and is there
if(!require(librarian)) install.packages("librarian")

librarian::shelf("tidyverse",
                 "here",
                 "hexSticker",
                 "png",
                 "magick",                   #for twitter card
                 "dmi3kno/bunny",             #helper for magick
                 "sysfonts",
                 "showtext"
)

sysfonts::font_add_google("Roboto", "Roboto")
showtext::showtext_auto()
ds_logo <- image_read(here("hex","logo.png"))



height <- 1

s <- sticker(ds_logo, package="Custom Themes", p_size=16, p_x=1, p_y=0.55,
             s_x=1,s_y=1.1,
             s_width=1.3*height, s_height=height,
             p_color="azure4",
             p_family="Roboto",
             h_color="deepskyblue", h_fill="white",
             filename=here("img","hexSticker.png"))

#https://www.ddrive.no/post/making-hex-and-twittercard-with-bunny-and-magick/


img_hex_gh <- image_read(here("img","hexSticker.png")) %>%
  image_scale("400x400")

# https://www.pngfind.com/download/hobbwm_github-clipart-github-logo-cartoon-hd-png-download/
gh_logo <- image_read(here("hex","gh.png")) %>%
  image_scale("50x50")

bg_colour <-"white"

gh <- image_canvas_ghcard(bg_colour) %>%
  image_compose(img_hex_gh, gravity = "East", offset = "+100+0") %>%
  image_annotate("Custom Themes", gravity = "West", location = "+100-30",
                 color="black", size=60, font="Roboto", weight = 700) %>%
  image_compose(gh_logo, gravity="West", offset = "+100+40") %>%
  image_annotate("carlosyanez/customthemes", gravity="West", location="+160+45",
                 size=40, font="Roboto",color="azure4") %>%
  image_border_ghcard(bg_colour)

gh %>%
  image_write(here::here("img", "bbox_ghcard.png"))