Merge pull request #573 from rstudio/bugfix-get_agent_report-arrange_by

Bugfix `get_agent_report(arrange_by)` in dev
rstudio · Oct 16, 2024 · 58301b6 · 58301b6
2 parents 4561c83 + a3fb865
commit 58301b6
Show file tree

Hide file tree

Showing 3 changed files with 46 additions and 3 deletions.
diff --git a/R/get_agent_report.R b/R/get_agent_report.R
@@ -448,8 +448,10 @@ get_agent_report <- function(
 
  # nocov start
 
+ # resolve `arrange_by` + post-`interrogate()` filtering of `$validation_set`
+ rows_keep <- match(report_tbl$i, validation_set$i)
  validation_set <- validation_set %>% 
- dplyr::filter(.data$i %in% report_tbl$i)
+ dplyr::slice(.env$rows_keep)
  eval <- eval[report_tbl$i]
  extracts <- 
  agent$extracts[