GH-48660: [R] Add tests for filter() and arrange() with aggregation expressions

[HyukjinKwon]

Rationale for this change

03f8ae7 added a couple of TODOs for testing aggregation expressions

arrow/r/R/dplyr-filter.R

Line 49 in 03f8ae7

# TODO: add a test for this

arrow/r/R/dplyr-arrange.R

Line 54 in 03f8ae7

# TODO: add a test for this

Should test negative cases too as mentioned in the TODOs.

What changes are included in this PR?

This PP adds a couple of tests for filter() and arrange() with aggregation expressions

Are these changes tested?

Unittests added.

Are there any user-facing changes?

No, test-only.

• GitHub Issue: [R] Add tests for filter() and arrange() with aggregation expressions #48660

[github-actions]

⚠️ GitHub issue #48660 has been automatically assigned in GitHub to PR creator.

[HyukjinKwon]

Has to catch warning instead per:

── Warning ('test-dplyr-filter.R:496:3'): filter() with aggregation expressions errors ──
In int < mean(int): 
i Expression not supported in filter() in Arrow
> Pulling data into R
Backtrace:
     ▆
  1. ├─testthat::expect_error(filter(tab, int < mean(int)), "not supported in filter") at test-dplyr-filter.R:496:3
  2. │ └─testthat:::expect_condition_matching_(...)
  3. │   └─testthat:::quasi_capture(...)
  4. │     ├─testthat (local) .capture(...)
  5. │     │ └─base::withCallingHandlers(...)
  6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
  7. ├─dplyr::filter(tab, int < mean(int))
  8. └─arrow:::filter.ArrowTabular(tab, int < mean(int))
  9.   └─arrow:::try_arrow_dplyr(...)
 10.     └─base::tryCatch(...)
 11.       └─base (local) tryCatchList(expr, classes, parentenv, handlers)
 12.         └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 13.           └─value[[3L]](cond)
 14.             └─arrow:::abandon_ship(e, parent)