inst/hexsticker.R

#' 
#' Create an Hexagonal Sticker for the Package
#' 

foraminifera <- png::readPNG(here::here("inst", "foraminifera.png"))

p <- ggplot2::ggplot() + 
  rphylopic::add_phylopic(foraminifera, alpha = 1, x = 0.3, y = 0.5, 
                          ysize = 1.2) +
  ggplot2::theme_void() + 
  ggpubr::theme_transparent()


hexSticker::sticker(
  
  subplot   = p,
  package   = "forcis",
  filename  = here::here("man", "figures", "logo.png"),
  dpi       = 600,
  
  p_size    = 36.0,         # Title
  u_size    =  6.0,         # URL
  p_family  = "Aller_Rg",
  
  p_color   = "#FFFFFF",   # Title
  h_fill    = "#2C4370",   # Background
  h_color   = "#5C6F94",   # Border
  u_color   = "#FFFFFF",   # URL
  
  p_x       = 1.00,        # Title
  p_y       = 0.58,        # Title
  s_x       = 0.98,        # Subplot
  s_y       = 1.20,        # Subplot
  
  s_width   = 1.40,        # Subplot
  s_height  = 1.10,        # Subplot
  
  url       = "https://frbcesab.github.io/forcis",
  
  spotlight = TRUE,
  l_alpha   = 0.10,
  l_x       = 0.75,
  l_y       = 1.5,
  l_width   = 2,
  l_height  = 2
)
FRBCesab/forcis documentation built on Oct. 25, 2024, 9:26 a.m.