use copy_dir instead of system commands. fixes error in windows

ramnathv · Nov 7, 2012 · 9e3aa8b · 9e3aa8b
1 parent 1eec7d5
commit 9e3aa8b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/author.R b/R/author.R
@@ -10,7 +10,7 @@ author <- function(deckdir){
   	return('Directory already exists. Please choose a different name.')
   }
   scaffold = system.file('skeleton', package = 'slidify')
-  system(sprintf('cp -r %s %s', scaffold, deckdir))
+  copy_dir(scaffold, deckdir)
   message('Finished creating slide directory...')
   message('Switching to slide directory...')
   setwd(deckdir)