data-raw/hex_logo.R

In emf-creaf/ecotraj: Ecological Trajectory Analysis

library(hexSticker)

logo_image <- fs::path("data-raw", "ecotraj_logo_image.png")
sticker(
  logo_image,
  package = "ecotraj", p_size = 20, p_y = 1.64, p_color = "#000080",
  s_x = 0.97, s_y = .95, s_width = .62,
  filename = fs::path("data-raw", "ecotraj.png"),
  #   url = "emf.creaf.cat", u_size = 6, u_color = "#BFD77A", u_y = .2, u_x = 1.2,
  h_fill = "#E3DEDB", h_color = "#000080"
)