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
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.