R.ignore/hex-logo.R

In villegar/scrappy: A Simple Web Scraper

#' Create hexagonal logo for the package
#'
#' @param subplot image to use as the main logo
#' @param dpi plot resolution (dots-per-inch)
#' @param h_color colour for hexagon border
#' @param h_fill colour to fill hexagon
#' @param output output file (hexagonal logo)
#' @param package title for logo (package name)
#' @param p_color colour for package name
#' @param url URL for package repository or website
#' @param u_size text size for URL
#'
#' @return hexagonal logo
#' @noRd
#' @keywords internal
#'
#' @examples
#' \dontrun{
#'     hex_logo()
#'     hex_logo("inst/images/code.png",
#'              output = "inst/images/logo.png")
#' }
hex_logo <- function(subplot = system.file("images/code.png",
                                           package = "scrappy"),
                     dpi = 600,
                     h_color = "#000000",
                     h_fill = "#F5BB62",
                     output = system.file("images/logo.png",
                                          package = "scrappy"),
                     package = "scrappy",
                     p_color = "#000000",
                     url = "https://github.com/villegar/scrappy",
                     u_size = 1.45) {
  hexSticker::sticker(subplot = subplot, package = package,
                      h_color = h_color,  h_fill = h_fill,
                      dpi = dpi,
                      s_x = 1.0, s_y = .9, s_width = .65, asp = 0.95,
                      p_x = 1.0, p_y = 1.52, p_size = 6, p_color = p_color,
                      url = url,
                      u_angle = 30, u_color = p_color, u_size = u_size,
                      filename = output)
}
hex_logo("inst/images/code.png", output = "inst/images/logo.png")