inst/assayr2_hex.R

In hemoshear/assayr2: Tools for analyzing assay data

pacman::p_load(hexSticker, emojifont, showtext, tidyverse)

load.fontawesome()
d <- data.frame(x = 1,
                y = 1,
                label = fontawesome("fa-flask"))
s <- ggplot(d, aes(x,y, label = label)) +
  geom_text(family = "fontawesome-webfont", size = 20, color = "#ff5612") +
  theme_void()

# external window to view due to RStudio rendering problems
quartz()
s

sticker(s, s_height = 10, s_width = 2, s_x = 1,
        package="assayr2", p_size=10, p_x = 1, p_y = 1.4, p_color = "#ff5612",
        h_fill = "#c7c9cb", h_color = "#2f6692", h_size = 2,
        filename="inst/assayr2_hex.png")

# use Real-Favicon-Generator
# https://realfavicongenerator.net/
# and save the 192x192 png