https://github.com/mcanouil/hex-stickers

Hex Stickers from R Packages or R Shiny Application
https://github.com/mcanouil/hex-stickers

hex-stickers

Last synced: about 1 month ago
JSON representation

Hex Stickers from R Packages or R Shiny Application

• Host: GitHub
• URL: https://github.com/mcanouil/hex-stickers
• Owner: mcanouil
• License: cc0-1.0
• Created: 2020-01-13T10:29:53.000Z (over 4 years ago)
• Default Branch: main
• Last Pushed: 2022-04-14T08:09:38.000Z (over 2 years ago)
• Last Synced: 2024-04-29T12:33:48.256Z (5 months ago)
• Topics: hex-stickers
• Homepage:
• Size: 9.26 MB
• Stars: 2
• Watchers: 2
• Forks: 0
• Open Issues: 0
• Metadata Files:
  • Readme: README.Rmd
  • License: LICENSE

Awesome Lists containing this project

• jimsghstars - mcanouil/hex-stickers - Hex Stickers from R Packages or R Shiny Application (Others)

README

        
---

output: github_document

---

# hex-stickers 

[![License](https://img.shields.io/github/license/mcanouil/hex-stickers)](LICENSE)

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

library(magick)

logos <- sub("\\.png$", "", 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")

```

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

library(gifski)

ratio <- 3 # 2210/120

gif_hex <- gifski(

  png_files = list.files("PNG", pattern = "png$", full.names = TRUE),

  gif_file = "hex-stickers.gif",

  delay = 1,

  width = 2210 / ratio,

  height = 2557 / ratio,

  loop = TRUE,

  progress = FALSE

)

```