Update R/utils-get_code_dependency.R

m7pr · Copilot · web-flow · commit 2a4a6cf9e632 · 2025-10-31T11:22:33.000+01:00
Co-authored-by: Copilot &lt;175728472+Copilot@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
@@ -352,7 +352,7 @@ move_functions_after_arrow <- function(ans, 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)]
+    ans[(arrow_pos + 1):length(ans)]
   }
   c(ans_pre, after_arrow)
 }

Original file line number	Diff line number	Diff line change
`@@ -352,7 +352,7 @@ move_functions_after_arrow <- function(ans, functions) {`
`352`	`352`	`if (any(ans_pre == fun)) ans_pre <- ans_pre[-match(fun, ans_pre)]`
`353`	`353`	`}`
`354`	`354`	`after_arrow <- if (arrow_pos < length(ans)) {`
`355`		`- ans[arrow_pos + 1:length(ans)]`
	`355`	`+ ans[(arrow_pos + 1):length(ans)]`
`356`	`356`	`}`
`357`	`357`	`c(ans_pre, after_arrow)`
`358`	`358`	`}`