R/make_logo.R

In anthonypileggi/worrrd: Generate Wordsearch and Crossword Puzzles

#' Make the 'worrrd' logo
#' @importFrom magrittr "%>%"
make_logo <- function() {

  # map coordinates
  w1 <-
    tibble::tibble(
      x = rep(3, 6),
      y = 3:-2,
      label = stringr::str_split("WORRRD", "")[[1]]
    )

  w2 <-
    tibble::tibble(
      x = 1:6,
      y = rep(1, 6),
      label = stringr::str_split("WORRRD", "")[[1]]
    )

  # draw via ggplot
  dplyr::bind_rows(w1, w2) %>%
    ggplot2::ggplot(aes(x = .data$x, y = .data$y)) +
    ggplot2::geom_tile(fill = "gray", color = "black", alpha = .5) +
    ggplot2::geom_text(aes(label = .data$label), size = 3) +
    ggplot2::theme_void()
  ggplot2::ggsave("logo.png", width = 1, height = 1)

  # usethis approach
  #usethis::use_logo("logo.png")

  # resize via magick
  img <- magick::image_read("logo.png")
  img <- magick::image_scale(img, "x100")
  magick::image_write(img, "logo.png")
}