data-raw/hex.R

In R-Computing-Lab/BGMisc: An R Package for Extended Behavior Genetics Analysis

library(hexSticker)
library(stringr)
library(rsvg)
## read in file
file <- "data-raw/catlogo.svg"
# Render with rsvg into png
svgdata <- readLines(file)
svg_string <- paste(svgdata, collapse = "\n")


nold_colors <- c(
  "#CCE4ED", # st0_color
  "#5f1905", # st1_color
  "#D9EBF4", # st2_color
  "#ce370b", # st3_color
  "#F45F34", # st4_color
  #  "#C15B65", # st6_color
  #  "#A54653", # st7_color
  "#842307" # st9_color
)

new_colors <- c(
  "#E4E5E7", # st0_color
  "#4b4b4b", # st1_color
  "#fcfcfc", # st2_color
  "#c9c9c9", # st3_color
  "#fcfcfc", # st4_color
  #  "#A3A8AC", # st6_color
  #   "#6C7077", # st7_color
  "#646464" # st9_color
)

color_replacements <- setNames(new_colors, nold_colors)
# Use str_replace_all to replace all occurrences of the old color
modified_svg_string <- str_replace_all(svg_string, color_replacements)
writeLines(modified_svg_string, "data-raw/recoloredcat.svg")

rsvg::rsvg_png("data-raw/recoloredcat.svg", "data-raw/recoloredcat.png", width = 800)


sticker("data-raw/recoloredcat.png",
  package = "BGmisc", p_size = 20, s_x = 1, s_y = .75, s_width = .6,
  h_fill = "#0fa1e0", h_color = "#333333", p_color = "white", filename = "man/figures/hex.png"
)