Update R/utils-get_code_dependency.R

m7pr · gogonzo · web-flow · commit 751e6ca9ff20 · 2024-11-06T14:05:10.000+01:00
Co-authored-by: Dawid Kałędkowski &lt;dawid.kaledkowski@gmail.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
@@ -463,6 +463,6 @@ split_code <- function(code) {
 #' @noRd
 extract_dependency <- function(parsed_code) {
   pd <- normalize_pd(utils::getParseData(parsed_code))
-  call_pd <- extract_calls(pd)[[1]]
-  c(extract_side_effects(call_pd), extract_occurrence(call_pd))
+  reordered_pd <- extract_calls(pd)[[1]] # because ...
+  c(extract_side_effects(reordered_pd), extract_occurrence(reordered_pd))
 }

Original file line number	Diff line number	Diff line change
`@@ -463,6 +463,6 @@ split_code <- function(code) {`
`463`	`463`	`#' @noRd`
`464`	`464`	`extract_dependency <- function(parsed_code) {`
`465`	`465`	`pd <- normalize_pd(utils::getParseData(parsed_code))`
`466`		`- call_pd <- extract_calls(pd)[[1]]`
`467`		`- c(extract_side_effects(call_pd), extract_occurrence(call_pd))`
	`466`	`+ reordered_pd <- extract_calls(pd)[[1]] # because ...`
	`467`	`+ c(extract_side_effects(reordered_pd), extract_occurrence(reordered_pd))`
`468`	`468`	`}`