Scaffolding: Add node_modules to .Rbuildignore, creating it if necessary

- Fixes #9

Author: alandipert

R/scaffold.R

@@ -33,6 +33,7 @@ scaffoldReactWidget <- function(name, npmPkg = NULL, edit = interactive()){
   addWebpackConfig(name)
   addWidgetJS(name, edit)
   addExampleApp(name)
+  updateRbuildignore()
   message("To install dependencies from npm run: yarn install")
   message("To build JavaScript run: yarn run webpack --mode=development")
 }
@@ -149,6 +150,18 @@ addExampleApp <- function(name) {
   }
 }
 
+updateRbuildignore <- function() {
+  ignore_file <- '.Rbuildignore'
+  if (file.exists(ignore_file)
+      && !("^node_modules$" %in% readLines(ignore_file))) {
+    message('Adding node_modules to existing .Rbuildignore')
+    write("^node_modules$", ignore_file, append = TRUE)
+  } else if (!file.exists(ignore_file)) {
+    message('Creating .Rbuildignore and adding node_modules')
+    write("^node_modules$", ignore_file)
+  }
+}
+
 # invoke file.edit in a way that will bind to the RStudio editor
 # when running inside RStudio
 fileEdit <- function(file) {