library(cowplot)
library(here)
#> here() starts at /Users/runner/work/schtools/schtools
library(hexSticker)
library(showtext)
#> Loading required package: sysfonts
#> Loading required package: showtextdb

# http://www.google.com/fonts
font_add_google("Source Sans Pro", "Source Sans Pro", regular.wt = 400, bold.wt = 600)
showtext_auto()

Emojis

From OpenMoji, licensed under CC BY-SA 4.0

poo_file <- here('vignettes', 'articles','1F4A9_color.png')
wrench_file <- here('vignettes', 'articles', '1F527_color.png')
hammer_file <- here('vignettes', 'articles', '1F528_color.png')
img <- ggdraw() +
    #draw_image(wrench_file, scale = 0.55, x = 0.195, y = 0.05) +
    draw_image(hammer_file, scale = 0.7, x = -0.32, y = 0.05) +
    draw_image(poo_file) 
ggsave2(img, 
        filename = here('vignettes', 'articles', 'poo-hammer.png'),
        height = 2,
        width = 2,
        units = 'in')
img

mint <- '#A2EAE0'
pink <- '#FA9DC5'
orange <- '#FFDBAD'
black <- '#000000'
logo_filename <-  here('vignettes', 'articles', 'schtools-logo.png')
sticker(img, package = 'schtools', 
        s_x = 1, s_y = 0.85, s_width = 1.6, s_height = 1.6,
        p_x = 1, p_y = 1.55, p_color = black, 
        p_size = 23, p_family = 'Source Sans Pro', 
        h_fill = mint, h_color = orange,
        url = 'schlosslab.org/schtools', u_size = 3.5,
        filename = logo_filename)
ggdraw() +
    draw_image(logo_filename)