initial sticker draft

Closes #516

Author: IndrajeetPatil

.Rbuildignore

@@ -17,6 +17,7 @@
 ^doc$
 ^docs$
 ^gitsum$
+^hextools
 ^inst/WORDLIST$
 ^inst/hooks/.*$
 ^revdep$

README.Rmd

@@ -68,3 +68,8 @@ The following online docs are available:
 -   [latest CRAN release](https://styler.r-lib.org).
 
 -   [GitHub development version](https://styler.r-lib.org/dev/).
+
+## Acknowledgments
+
+Hex sticker font is [Gayathri](https://fonts.google.com/specimen/Gayathri), and the image is taken from icon made by [Freepik](https://www.freepik.com) and available at
+[flaticon.com](https://www.flaticon.com/free-icon/suit_1355137).

README.md

@@ -53,3 +53,10 @@ The following online docs are available:
 - [latest CRAN release](https://styler.r-lib.org).
 
 - [GitHub development version](https://styler.r-lib.org/dev/).
+
+## Acknowledgments
+
+Hex sticker font is
+[Gayathri](https://fonts.google.com/specimen/Gayathri), and the image is
+taken from icon made by [Freepik](https://www.freepik.com) and available
+at [flaticon.com](https://www.flaticon.com/free-icon/suit_1355137).

hextools/hexsticker.R

@@ -0,0 +1,46 @@
+library(hexSticker)
+library(magick)
+library(showtext)
+library(sysfonts)
+
+# Loading Google fonts (http://www.google.com/fonts)
+google_font_name <- "Gayathri"
+font_add_google(google_font_name)
+
+# Automatically use showtext to render text for future devices
+showtext_auto()
+
+project_root <- here::here()
+
+# https://www.flaticon.com/free-icon/suit_1355137
+image <- image_read(file.path(project_root, "hextools", "suit.png"))
+
+sticker(
+  # image
+  subplot = image,
+  s_x = 1.1,
+  s_y = 1,
+  s_width = 1,
+  s_height = 1.2,
+  # package name
+  package = "styler",
+  p_color = "#F6ECA9",
+  p_family = google_font_name,
+  p_size = 58,
+  p_x = 0.35,
+  p_y = 0.95,
+  angle = 90,
+  # image
+  h_color = "white",
+  h_fill = "#11235A",
+  # package URL
+  url = "       https://styler.r-lib.org/",
+  u_size = 10,
+  u_color = "#F6ECA9",
+  # saving sticker
+  filename = file.path(project_root, "hextools", "logo.png"),
+  dpi = 600,
+)
+
+manual_logo_path <- file.path(project_root, "man", "figures", "logo.png")
+fs::file_move("logo.png", manual_logo_path)