Merge branch 'master'

jimhester · jimhester · commit 6629945d0e35 · 2023-10-09T13:35:37.000-04:00
diff --git a/R/trace_calls.R b/R/trace_calls.R
@@ -28,7 +28,7 @@ trace_calls <- function (x, parent_functions = NULL, parent_ref = NULL) {
     lapply(y, trace_calls, parent_functions = parent_functions)
   }
 
-  if (is.atomic(x) || is.name(x)) {
+  if (is.atomic(x) || is.name(x) || is.null(x)) {
     if (is.null(parent_ref)) {
       x
     }

Original file line number	Diff line number	Diff line change
`@@ -28,7 +28,7 @@ trace_calls <- function (x, parent_functions = NULL, parent_ref = NULL) {`
`28`	`28`	`lapply(y, trace_calls, parent_functions = parent_functions)`
`29`	`29`	`}`
`30`	`30`
`31`		`- if (is.atomic(x) \|\| is.name(x)) {`
	`31`	`+ if (is.atomic(x) \|\| is.name(x) \|\| is.null(x)) {`
`32`	`32`	`if (is.null(parent_ref)) {`
`33`	`33`	`x`
`34`	`34`	`}`