Fix error propagation bug

capnrefsmmat · web-flow · commit 90ddf34ab455 · 2020-11-14T16:00:34.000-05:00
diff --git a/R-notebooks/make.R b/R-notebooks/make.R
@@ -18,7 +18,7 @@ for (file_name in file_names[is_dashboard]) {
     )),
     error = function(e) {
       cat(e$message)
-      has_failures = TRUE
+      has_failures <<- TRUE
     }
   )
   t1 = proc.time()
@@ -30,4 +30,3 @@ for (file_name in file_names[is_dashboard]) {
 if (has_failures) {
   quit(status = 1)
 }
-

Original file line number	Diff line number	Diff line change
`@@ -18,7 +18,7 @@ for (file_name in file_names[is_dashboard]) {`
`18`	`18`	`)),`
`19`	`19`	`error = function(e) {`
`20`	`20`	`cat(e$message)`
`21`		`- has_failures = TRUE`
	`21`	`+ has_failures <<- TRUE`
`22`	`22`	`}`
`23`	`23`	`)`
`24`	`24`	`t1 = proc.time()`
`@@ -30,4 +30,3 @@ for (file_name in file_names[is_dashboard]) {`
`30`	`30`	`if (has_failures) {`
`31`	`31`	`quit(status = 1)`
`32`	`32`	`}`
`33`		`-`