R/logo.R

In gpilgrim2670/ThreeWiseMonkeys: The Japanese Pictorial Maxim "See No Evil, Hear No Evil, Speak No Evil"

# library(hexSticker)
#
# imgurl <- "inst/logos/three_monkeys_transparent.png"
# s <- sticker(
#   imgurl,
#   package = "Three Wise Monkeys",
#   p_size = 4,
#   p_color = "black",
#   p_family = "Andale Mono",
#   s_x = 1,
#   s_y = 0.75,
#   s_width = 0.6,
#   h_fill="red",
#   h_color="black",
#   filename = "inst/logos/hex_logo.png")
#
# plot(s)

# library(extrafont)
# font_import() # import all your fonts
# fonts() #get a list of fonts
# fonttable()
# fonttable()[40:45,]