data-raw/hexsticker.R

In cwthom/shinyhelper: Easily Add Markdown Help Files to 'shiny' App Elements

# Script to create hexSticker

# hexSticker package
library(hexSticker)
library(magrittr)
library(magick)

# create sticker
sticker(subplot = "./data-raw/question-mark.png",
        package = "shinyhelper",
        p_size = 18,
        s_x = 1.03, s_y = 0.75,
        h_color = "#ffffff",
        h_fill  = "#305ca3", 
        url = "https://github.com/cwthom/shinyhelper",
        u_size = 3,
        u_color = "#ffffff",
        filename = "data-raw/shinyhelper.png")

shinyhelper <- magick::image_read("data-raw/shinyhelper.png")
image_scale(shinyhelper, "150") %>%
  image_write(path = "man/figures/logo.png", format = "png")