data-raw/sticker.R

In lgnbhl/bfsdata: Get Data from the Swiss Federal Statistical Office

## Making a hex sticker for BFS
library(hexSticker)
library(magick)
library(magrittr)

hexSticker::sticker("man/figures/logo_icon.png",
  package = "BFS",
  p_x = 1,
  p_size = 28,
  spotlight = FALSE,
  h_size = 1.5,
  h_color = "#DA291C",
  h_fill = "white",
  s_x = 1.02,
  s_y = 1,
  s_width = 1,
  filename = "man/figures/logo.png"
)

bfs <- magick::image_read("man/figures/logo.png")
magick::image_scale(bfs, "400") |>
  magick::image_write(path = "man/figures/logo.png", format = "png")