Update R/utils-get_code_dependency.R

m7pr · averissimo · web-flow · commit 3a13c492f092 · 2024-11-27T16:41:17.000+01:00
Co-authored-by: André Veríssimo &lt;211358+averissimo@users.noreply.github.com&gt;
Signed-off-by: Marcin &lt;133694481+m7pr@users.noreply.github.com&gt;
diff --git a/R/utils-get_code_dependency.R b/R/utils-get_code_dependency.R
@@ -106,7 +106,7 @@ extract_calls <- function(pd) {
   calls <- Filter(function(call) !(nrow(call) == 1 && call$token == "';'"), calls)
   calls <- Filter(Negate(is.null), calls)
   calls <- fix_shifted_comments(calls)
-  calls <- remove_custom_assign(calls)
+  calls <- remove_custom_assign(calls, c(":="))
   fix_arrows(calls)
 }
 

Original file line number	Diff line number	Diff line change
`@@ -106,7 +106,7 @@ extract_calls <- function(pd) {`
`106`	`106`	`calls <- Filter(function(call) !(nrow(call) == 1 && call$token == "';'"), calls)`
`107`	`107`	`calls <- Filter(Negate(is.null), calls)`
`108`	`108`	`calls <- fix_shifted_comments(calls)`
`109`		`- calls <- remove_custom_assign(calls)`
	`109`	`+ calls <- remove_custom_assign(calls, c(":="))`
`110`	`110`	`fix_arrows(calls)`
`111`	`111`	`}`
`112`	`112`