data-raw/create_hex.R

In NOAA-EDAB/neusCatch: Multispecies length expansion of commercial catch

#' create hex sticker
#'
#'
#'
#'
#'

create_hex <- function() {

  imgurl <- here::here("data-raw","STOCKASSESSMENT.png")
  hexSticker::sticker(imgurl,
                      package = "mscatch",
                      p_size=24,
                      p_color = "#3b3b3b",
                      s_x=1,
                      s_y=1,
                      s_width=1.10,
                      p_x = 1,
                      p_y = 1.1,
                      h_size = 1,
                      h_fill="#FFFFFF",
                      h_color="#bc4700",
                      #angle = 30,
                      spotlight=F,
                      l_x = .8,
                      l_y = 1,
                      l_width = 3,
                      l_height = 3,
                      l_alpha = 0.5,
                      u_x = .99,
                      u_y=.05,
                      url = "noaa-edab.github.io/mscatch",
                      u_size = 5.8,
                      u_color = "#3b3b3b",
                      white_around_sticker = T,
                      filename = here::here("man/figures", "logo.png"))
  #filename = here::here("man/figures", "logoWhiteBack.png"))

}