data-raw/hex.R

In R-Computing-Lab/discord: Functions for Discordant Kinship Modeling

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
#  "#4A4A4A", # st1_color
#  "#F0F0F2", # st2_color
#  "#888C94", # st3_color
#  "#B0B3B8", # st4_color
#  #  "#A3A8AC", # st6_color
#  #  "#6C7077", # st7_color
#  "#30333A" # st9_color
#)

color_replacements <- setNames(nold_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 = "discord", 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")