use queue for recursion

rstudio · Sep 30, 2024 · 112a03b · 112a03b
1 parent 20c380f
commit 112a03b
Show file tree

Hide file tree

Showing 5 changed files with 109 additions and 84 deletions.
diff --git a/R/aaa.R b/R/aaa.R
@@ -1,6 +1,7 @@
 
 # global variables
 the <- new.env(parent = emptyenv())
+the$paths <- new.env(parent = emptyenv())
 
 # detect if we're running on CI
 ci <- function() {

diff --git a/R/call.R b/R/call.R
@@ -25,12 +25,11 @@ renv_call_expect <- function(node, package, methods) {
 
 }
 
-renv_call_normalize <- function(node, stack) {
+renv_call_normalize <- function(node) {
 
   # check for magrittr pipe -- if this part of the expression is
   # being piped into, then we need to munge the call
   ispipe <- renv_call_matches(node, names = c("%>%", "%T>%", "%<>%"))
-
   if (!ispipe)
     return(node)