Fix .Rbuildignore entry generation in scaffold

alandipert · alandipert · commit 0a0db7eca602 · 2019-02-26T15:00:58.000-08:00
diff --git a/R/scaffold_utils.R b/R/scaffold_utils.R
@@ -45,3 +45,9 @@ renderFile <- function(outputFile, templateFile, description = '', substitutions
   }
   outputFile
 }
+
+# Workaround for https://github.com/r-lib/usethis/issues/643, otherwise would
+# use usethis::use_build_ignore
+buildIgnoreDirs <- function(dirs) {
+  usethis::write_union(".Rbuildignore", paste0("^", dirs))
+}
diff --git a/R/scaffold_widget.R b/R/scaffold_widget.R
@@ -33,7 +33,7 @@ scaffoldReactWidget <- function(name, npmPkgs = NULL, edit = interactive()){
   addWidgetJS(name, edit)
   addExampleApp(name)
 
-  usethis::use_build_ignore(c("node_modules", "srcjs"))
+  buildIgnoreDirs(c("node_modules", "srcjs"))
   usethis::use_git_ignore(c("node_modules"))
   lapply(c("htmltools", "htmlwidgets", "reactR"), usethis::use_package)
 

Original file line number	Diff line number	Diff line change
`@@ -45,3 +45,9 @@ renderFile <- function(outputFile, templateFile, description = '', substitutions`
`45`	`45`	`}`
`46`	`46`	`outputFile`
`47`	`47`	`}`
	`48`	`+`
	`49`	`+# Workaround for https://github.com/r-lib/usethis/issues/643, otherwise would`
	`50`	`+# use usethis::use_build_ignore`
	`51`	`+buildIgnoreDirs <- function(dirs) {`
	`52`	`+ usethis::write_union(".Rbuildignore", paste0("^", dirs))`
	`53`	`+}`