Add package sticker

.Rbuildignore

@@ -29,3 +29,4 @@
 ^vignettes/[^-]+.gif$
 ^CRAN-SUBMISSION$
 ^CODE_OF_CONDUCT\.md$
+^inst/hextools$

.lintr

@@ -32,6 +32,7 @@ linters: all_linters(
 exclusions: list(
     "inst/doc/creating_linters.R" = 1,
     "inst/example/bad.R",
+    "inst/hextools/hexsticker.R",
     "tests/testthat.R" = list(unused_import_linter = Inf),
     "tests/testthat/default_linter_testcode.R",
     "tests/testthat/dummy_packages",

README.md

@@ -1,11 +1,15 @@
-# lintr
+# `{lintr}`: A 'Linter' for R Code
 
 [![R build status](https://github.com/r-lib/lintr/workflows/R-CMD-check/badge.svg)](https://github.com/r-lib/lintr/actions)
 [![codecov.io](https://codecov.io/gh/r-lib/lintr/branch/main/graphs/badge.svg)](https://app.codecov.io/gh/r-lib/lintr?branch=main)
 [![CRAN_Status_Badge](https://www.r-pkg.org/badges/version/lintr)](https://cran.r-project.org/package=lintr)
 [![lifecycle](https://img.shields.io/badge/lifecycle-stable-brightgreen.svg)](https://lifecycle.r-lib.org/articles/stages.html)
 
-`{lintr}` provides [static code analysis for R](https://en.wikipedia.org/wiki/Static_program_analysis). It checks for adherence to a given style, identifying syntax errors and possible semantic issues, then reports them to you so you can take action. Watch lintr in action in the following animation:
+## Overview <img src="man/figures/logo.png" align="right" width="200" />
+
+`{lintr}` provides [static code analysis for R](https://en.wikipedia.org/wiki/Static_program_analysis). It checks for adherence to a given style, identifying syntax errors and possible semantic issues, then reports them to you so you can take action. 
+
+Watch `{lintr}` in action in the following animation:
 
 ![](man/figures/demo.gif "lintr demo")
 
@@ -69,3 +73,9 @@ Without further configuration, this will run the [default linters](https://lintr
 ## Code of Conduct
 
 Please note that the lintr project is released with a [Contributor Code of Conduct](https://www.contributor-covenant.org/version/2/1/code_of_conduct/). By contributing to this project, you agree to abide by its terms.
+
+## Acknowledgments
+
+Hex sticker font is [IBM Plex Serif](https://fonts.google.com/specimen/IBM+Plex+Serif), 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/lint-roller_6981024).

inst/hextools/hexsticker.R

@@ -0,0 +1,45 @@
+library(hexSticker)
+library(magick)
+library(showtext)
+library(sysfonts)
+
+# Loading Google fonts (http://www.google.com/fonts)
+google_font_name <- "IBM Plex Serif"
+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/lint-roller_6981024
+image <- image_read(file.path(project_root, "inst", "hextools", "lint-roller.png"))
+manual_logo_path <- file.path(project_root, "man", "figures", "logo.png")
+
+sticker(
+  # image
+  subplot = image,
+  s_x = 1,
+  s_y = 0.85,
+  s_width = 0.9,
+  s_height = 0.9,
+  # package name
+  package = "lintr",
+  p_color = "#545452",
+  p_family = google_font_name,
+  p_size = 45,
+  p_x = 1,
+  p_y = 1.55,
+  # border
+  h_color = "grey",
+  h_fill = "white",
+  # url
+  url = "       https://lintr.r-lib.org/",
+  u_size = 10,
+  u_color = "grey",
+  # saving sticker
+  dpi = 600,
+  filename = manual_logo_path
+)
+
+pkgdown::build_favicons()