fix: normalize graph in one place

insightsengineering · Oct 16, 2024 · 0a894df · 0a894df
1 parent 8b5e76e
commit 0a894df
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/R/utils-get_code_dependency.R b/R/utils-get_code_dependency.R
@@ -382,10 +382,12 @@ extract_side_effects <- function(calls_pd) {
 graph_parser <- function(x, graph) {
   # normalize x to remove surrounding backticks
   x <- gsub("^`|`$", "", x)
+  graph <- lapply(graph, function(call) gsub("^`|`$", "", call))
   occurrence <- vapply(
-    graph, function(call) {
+    graph,
+    function(call) {
       ind <- match("<-", call, nomatch = length(call) + 1L)
-      x %in% gsub("^`|`$", "", call[seq_len(ind - 1L)])
+      x %in% call[seq_len(ind - 1L)]
     },
     logical(1)
   )

diff --git a/man/cdisc_data.Rd b/man/cdisc_data.Rd