Copy for creating figures dir

(For book export)
weirubin · Nov 21, 2016 · b2f36a1 · b2f36a1
1 parent 4dd8bb4
commit b2f36a1
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 0 deletions.
diff --git a/.gitignore b/.gitignore
@@ -12,3  12,4 @@ libs
 _main.*
 bookdown*
 tmp-pdfcrop-*
 figures
diff --git a/figures.R b/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))
-Original file line number
+Diff line change
@@ Expand Up / @@ -12,3 12,4 @@ libs @@
     _main.*
     bookdown*
     tmp-pdfcrop-*
+    figures