workflow for hex sticker given an image (owl.jpg for ontoProc)

hexsetup.R

library(cropcircles)
library(magick)
y = image_read("owl.jpg") # https://commons.wikimedia.org/wiki/File:Great_Horned_Owl_(30706490070).jpg
library(cropcircles)
img_cropped_path <- hex_crop(
  images = "owl.jpg",
  border_colour = "#107e54",
  border_size = 24
)



library(tidyverse)
library(ggpath)
library(tidyverse)
library(ggpath)
library(ggtext)
library(glue)
 
ggplot() +
  geom_from_path(aes(0.5, 0.5, path = img_cropped_path)) +
  annotate("text", x=.5, y=.5, label="ontoProc", fontface="bold", colour="gold", size=32, angle=22) +
  xlim(0, 1) +
  ylim(0, 1) +
  theme_void() +
  coord_fixed()