simplify in_parenthesis function

insightsengineering · Feb 6, 2024 · 035a65c · 035a65c
1 parent 80184de
commit 035a65c
Showing 1 changed file with 1 addition and 6 deletions.
diff --git a/R/utils-get_code_dependency.R b/R/utils-get_code_dependency.R
@@ -240,12 +240,7 @@ extract_occurrence <- function(calls_pd) {
     if (any(x$token == "LBB")) {
       id_start <- min(x$id[x$token == "LBB"])
       id_end <- min(x$id[x$token == "']'"])
-      in_parenthesis <- x$token == "SYMBOL" & x$id > id_start & x$id < id_end
-      if (any(in_parenthesis)) {
-        x$text[in_parenthesis]
-      } else {
-        character(0)
-      }
+      x$text[x$token == "SYMBOL" & x$id > id_start & x$id < id_end]
     }
   }
   lapply(