vectorize move_dir()

danromuald · Jul 19, 2016 · 5624e1d · 5624e1d
1 parent c46f537
commit 5624e1d
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/R/render.R b/R/render.R
@@ -80,12 +80,12 @@ render_book = function(
   }
   # move _files and _cache from _bookdown_files to ./, then from ./ to _bookdown_files
   aux_dirs = files_cache_dirs(aux_diro)
-  move_dir(aux_dirs, basename(aux_dirs))
+  move_dirs(aux_dirs, basename(aux_dirs))
   on.exit({
     aux_dirs = files_cache_dirs('.')
     if (length(aux_dirs)) {
       dir_create(aux_diro)
-      move_dir(aux_dirs, file.path(aux_diro, basename(aux_dirs)))
+      move_dirs(aux_dirs, file.path(aux_diro, basename(aux_dirs)))
     }
   }, add = TRUE)
 

diff --git a/R/utils.R b/R/utils.R
@@ -388,6 +388,8 @@ move_dir = function(from, to) {
     unlink(from, recursive = TRUE)
 }
 
+move_dirs = function(from, to) mapply(move_dir, from, to)
+
 existing_files = function(x, first = FALSE) {
   x = x[file.exists(x)]
   if (first) head(x, 1) else x