update hex images for front page (#740)

Author: EmilHvitfeldt

themes/hugo-graphite/static/css/images/hex/dplyr.png

@@ -4,15 +4,15 @@ library(magick)
 library(fs)
 library(purrr)
 
-tidyverse_pngs <- fs::dir_ls("static/css/images/hex", 
+tidyverse_pngs <- fs::dir_ls("themes/hugo-graphite/static/css/images/hex", 
                        recurse = TRUE, 
                        glob = "*.png")
 
 scale_hex <- function(hex) {
   hex %>%
     image_read() %>% 
-    image_scale("736x853") %>% 
+    image_scale("240x278") %>% 
     image_write(hex, quality = 90)
 }
 
-purrr::map(tidyverse_pngs, scale_hex)
+purrr::map(tidyverse_pngs, scale_hex)