yearly_grid_mosaic.R

# # cd to TidyTuesday directory
# 
# find . -name "*png" | grep -i "plots" | xargs -I{} cp -p "{}" ~/SynologyDrive/R/tidytuesday/yearly-roundup/NEWYEAR/
#   
# # cd to NEWYEAR
#   
# mkdir resized
# 
# sips -Z 1200 *.png --out "resized/"
# 
# montage -density 300 -tile 9x0 -border 0 -background lightgrey *.png year.png


Change year folder!

  
library(dplyr)
library(stringr)

# Change years
plots <- list.files(c("2023", "2024"), pattern = "png", recursive = TRUE, full.names = TRUE) %>% 
  as_tibble() %>% 
  rename("from" = "value") %>% 
  filter(str_detect(from, "plots")) %>% 
  # Change year
  mutate(to = paste0("yearly-roundup/fifth-year/", str_replace_all(from, "/", "_")))

file.copy(plots$from, plots$to)

dir.create("yearly-roundup/fifth-year/resized/", recursive = TRUE)

# Manually remove unneeded images before next step
# Change year
system('sips -Z 800 yearly-roundup/fifth-year/*.png --out \"yearly-roundup/fifth-year/resized/\"')

# Change year
system('/opt/homebrew/bin//montage -density 300 -tile 9x0 -geometry 400x400+10+10 -border 0 -background lightgrey yearly-roundup/fifth-year/resized/*.png yearly-roundup/fifth-year/fifth-year.png')