Copy for creating figures dir

(For book export)

Author: hadley

.gitignore

@@ -12,3 +12,4 @@ libs
 _main.*
 bookdown*
 tmp-pdfcrop-*
+figures

figures.R

@@ -0,0 +1,18 @@
+library(stringr)
+library(purrr)
+
+chapters <- dir("_bookdown_files", full.names = TRUE, pattern = "_files$")
+
+figures <- dir(chapters, full.names = TRUE, pattern = "-latex")
+
+name <- figures %>%
+  dirname() %>%
+  basename() %>%
+  str_replace("_files", "")
+
+out_path <- file.path("figures", name)
+
+dir.create("figures/")
+out_path %>% walk(dir.create)
+
+map2(figures, out_path, ~ file.copy(dir(.x, full.names = TRUE), .y))