fix move_functions_after_arrow

Author: m7pr

R/utils-get_code_dependency.R

@@ -343,9 +343,14 @@ move_functions_after_arrow <- function(ans, functions) {
   if (length(functions) == 0) {
     return(ans)
   }
-  before_arrow <- setdiff(ans[1:arrow_pos], functions)
-  after_arrow <- ans[(arrow_pos + 1):length(ans)]
-  c(before_arrow, unique(c(intersect(ans[1:arrow_pos], functions), after_arrow)))
+  ans_pre <- ans[1:arrow_pos]
+  for (fun in functions) {
+    if (any(ans_pre == fun)) ans_pre <- ans_pre[-match(fun, ans_pre)]
+  }
+  after_arrow <- if (arrow_pos < length(ans)) {
+    ans[arrow_pos + 1:length(ans)]
+  }
+  c(ans_pre, after_arrow)
 }
 
 #' Extract side effects