Don't show warnings in scaffold when dir.create

Author: alandipert

R/scaffold_utils.R

@@ -37,7 +37,7 @@ toDepJSON <- function(npmPkgs) {
 # Wraps renderTemplate for convenient use from scaffold functions.
 renderFile <- function(outputFile, templateFile, description = '', substitutions = list()) {
   if (!file.exists(outputFile)) {
-    dir.create(dirname(outputFile), recursive = TRUE)
+    dir.create(dirname(outputFile), recursive = TRUE, showWarnings = FALSE)
     cat(renderTemplate(slurp(templateFile), substitutions), file = outputFile)
     message("Created ", description, " ", outputFile)
   } else {