converts wordle share to an image and autogenerates accompanying alt text

Convert_Wordle_Share_to_Image_with_alt_text.R

library(ggplot2)
library(ggthemes)
library(dplyr)
colour_choice <- colorblind_pal()(3)

pasted_text = "PasteYourGameShareHre"

pasted_title <- gsub("\n\n.*", "", pasted_text)
title_short <- substr(pasted_title, 1, nchar(pasted_title) - 4)
pasted_grid <- gsub(".*[^/ ]/[^\\\n]+", "", pasted_text)
decomposed_grid <- unlist(strsplit(pasted_grid, split = ""))
squares_only <- decomposed_grid[decomposed_grid != "\n"]
grid_row <- ceiling(1:length(squares_only) / 5)
grid_col <- (1:length(squares_only)) - (grid_row - 1) * 5
grid_result <- rep(colour_choice[1], length(squares_only))
grid_result[squares_only == "\U0001f7e9" | squares_only == "\U0001f7e7"] <- colour_choice[2]
grid_result[squares_only == "\U0001f7e8" | squares_only == "\U0001f7e6"] <- colour_choice[3]
grid_df <- data.frame(grow = grid_row * -1,
                      gcol = grid_col,
                      gresult = grid_result)
wimg <- ggplot(grid_df, aes(x = gcol, y = grow, fill = gresult)) +
  geom_tile(width = 0.9, height = 0.9) +
  scale_fill_identity() + coord_equal() + theme_void() +
  labs(title = title_short, subtitle = "blue = misplaced, orange = correct") +
  theme(
    plot.title = element_text(hjust = 0.5, size = 30),
    plot.subtitle = element_text(hjust = 0.5, size = 20),
    plot.margin = margin(60, 60, 60, 60, "pt")
  )
savepath <-
  paste0(
    "~/Desktop/",
    gsub(" ", "_", title_short),
    strftime(Sys.time(), format = "_%Y_%m_%d.png")
  )
ggsave(
  filename = savepath,
  plot = wimg,
  dpi = 72,
  units = "in",
  bg = "white",
  height = 5.556,
  width = 9.877
)
autotext <- grid_df %>%
  mutate(
    grow = grow * -1,
    gtext = case_when(
      gresult == colour_choice[2] ~ "correct",
      gresult == colour_choice[3] ~ "misplaced",
      TRUE ~ "wrong"
    )
  ) %>%
  arrange(grow, gcol) %>%
  group_by(grow) %>%
  summarise(tresult = paste(gtext, collapse = ", ")) %>%
  ungroup() %>%
  mutate(outtext = paste0("Line ", grow, " guesses were ", tresult, "."))
alttest <-
  c(paste0("Results grid for ", title_short, "."), autotext$outtext)
writeLines(alttest)