https://github.com/epiverse-trace/hex-stickers

https://github.com/epiverse-trace/hex-stickers

epiverse logos

Last synced: about 2 months ago
JSON representation

• Host: GitHub
• URL: https://github.com/epiverse-trace/hex-stickers
• Owner: epiverse-trace
• License: mit
• Created: 2023-04-04T13:56:26.000Z (almost 2 years ago)
• Default Branch: main
• Last Pushed: 2024-02-28T16:45:11.000Z (11 months ago)
• Last Synced: 2024-02-28T17:56:27.498Z (11 months ago)
• Topics: epiverse, logos
• Language: JavaScript
• Size: 17.8 MB
• Stars: 0
• Watchers: 4
• Forks: 0
• Open Issues: 0
• Metadata Files:
  • Readme: README.Rmd
  • Contributing: .github/CONTRIBUTING.md
  • License: LICENSE.md

Awesome Lists containing this project

README

        
---

output: github_document

---

```{r, include = FALSE}

knitr::opts_chunk$set(

  collapse = TRUE,

  comment = "#>",

  fig.path = "man/figures/README-",

  out.width = "100%"

)

```

This repository is inspired and re-uses infrastructure from the [RStudio

hex-stickers repo](https://github.com/rstudio/hex-stickers).

To create a logo for a new Epiverse-TRACE package, check out our [one-page 

cheatsheet](https://datadotorg.box.com/v/epiverse-hexstickers).

# Epiverse-TRACE hex stickers

```{r, echo = FALSE, message = FALSE}

library(magick)

logos <- tools::file_path_sans_ext(dir("PNG", pattern = "\\.png$"))

png <- paste0("PNG/", logos, ".png")

svg <- paste0("SVG/", logos, ".svg")

thumb <- paste0("thumbs/", logos, ".png")

resize <- function(path_in, path_out) {

  image <- image_read(path_in)

  image <- image_resize(image, "278x")

  image_write(image, path_out)

}

outdated <- !file.exists(thumb) | file.mtime(thumb) < file.mtime(png)

invisible(Map(resize, png[outdated], thumb[outdated]))

```

```{r, results = "asis", echo = FALSE}

img <- glue::glue('')

png_link <- glue::glue('{logos}.png')

svg_link <- glue::glue('{logos}.svg')

cell <- paste0("", img, "
", png_link, "
", svg_link, "")

cols <- 5

rows <- ceiling(length(cell) / cols)

row_id <- rep(seq_len(rows), each = cols, length.out = length(cell))

row_cells <- split(cell, row_id)

cat("\n")

cat(paste0("", sapply(row_cells, paste, collapse = ""), ""), sep = "")

cat("\n")

```