data-raw/sticker.R

In MarijnJABoer/befitteR: A bundle of health, fitness, food and body related equations, formula's and more, so you can become fit

library(hexSticker)
library(magick)

logo <- image_read("man/figures/stretching-exercises.png")
transp.logo <- image_transparent(logo, "white", fuzz = 50)
transp.logo <- image_colorize(transp.logo, opacity = 100, color = "gold")

sticker(
  transp.logo,
  package = "befitteR",
  p_size = 9,
  p_color = "darkblue",
  p_y = 1.354,
  s_x = 1.1,
  s_y = 1,
  spotlight = FALSE,
  s_width = 1.31,
  s_height = 1.31,
  h_fill = "#00BFFF",
  h_color = "black",
  h_size = 1,
  filename = "man/figures/logo.png",
  url = "https://github.com/MarijnJABoer/befitteR",
  u_size = 1.25
)