data-raw/create_hex.R

In andybeet/survdat: Tools for working with NEFSC survey data

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

create_hex <- function() {

  imgurl <- here::here("data-raw","25.SURVEYS_SAMPLING.png")
  hexSticker::sticker(imgurl,
                      package = "survdat",
                      p_size=24,
                      s_x=1,
                      s_y=1,
                      s_width=1.28,
                      p_x = 1,
                      p_y = .8,
                      h_size = 1,
                      h_fill="#FFFFFF",
                      h_color="#bc4700",
                      #angle = 30,
                      spotlight=T,
                      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/survdat",
                      u_size = 5.8,
                      white_around_sticker = T,
                      filename = here::here("man/figures", "logoWhiteBack.png"))

}