[R-pkg-team] Bug#1031299: r-cran-ggalluvial: autopkgtest regression

[Adrian Bunk]

Source: r-cran-ggalluvial
Version: 0.12.4-1
Severity: serious

https://ci.debian.net/data/autopkgtest/testing/amd64/r/r-cran-ggalluvial/31321147/log.gz

...
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-stat-flow.r:10'): `stat_flow` weights computed variables but drops weight ──
Error in `summarise(.tbl, !!!funs)`: Problem while computing `lode = (function (x, order_by = NULL, default =
NULL, na_rm = FALSE) ...`.
ℹ The error occurred in group 1: alluvium = 1, x = 1, yneg = FALSE, stratum =
  "B", deposit = 1, fissure = 1, link = 1, flow = from, adj_deposit = 1.1.3,
  adj_fissure = 1.1.1.
Caused by error in `nth()`:
! unused argument (na_rm = na_rm)
Backtrace:
     ▆
  1. ├─base::as.data.frame(StatFlow$compute_panel(data)) at test-stat-flow.r:10:2
  2. ├─StatFlow$compute_panel(data)
  3. │ └─ggalluvial (local) compute_panel(..., self = self)
  4. │   └─dplyr::summarize_at(data, "lode", distill)
  5. │     ├─dplyr::summarise(.tbl, !!!funs)
  6. │     └─dplyr:::summarise.grouped_df(.tbl, !!!funs)
  7. │       └─dplyr:::summarise_cols(.data, dplyr_quosures(...), caller_env = caller_env())
  8. │         ├─base::withCallingHandlers(...)
  9. │         └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
 10. │           └─base::lapply(.x, .f, ...)
 11. │             └─dplyr (local) FUN(X[[i]], ...)
 12. │               └─mask$eval_all_summarise(quo)
 13. ├─dplyr (local) `<fn>`(lode)
 14. └─base::.handleSimpleError(...)
 15.   └─dplyr (local) h(simpleError(msg, call))
 16.     └─rlang::abort(bullets, call = error_call, parent = skip_internal_condition(e))
── Error ('test-stat-flow.r:28'): `stat_flow` orders flows correctly with negative values ──
Error in `summarise(.tbl, !!!funs)`: Problem while computing `lode = (function (x, order_by = NULL, default =
NULL, na_rm = FALSE) ...`.
ℹ The error occurred in group 1: alluvium = 1, x = 1, yneg = FALSE, stratum =
  "A", deposit = 2, fissure = 1, link = 1, flow = from, adj_deposit = 1.2.3,
  adj_fissure = 1.1.1.
Caused by error in `nth()`:
! unused argument (na_rm = na_rm)
Backtrace:
     ▆
  1. ├─StatFlow$compute_panel(data) at test-stat-flow.r:28:2
  2. │ └─ggalluvial (local) compute_panel(..., self = self)
  3. │   └─dplyr::summarize_at(data, "lode", distill)
  4. │     ├─dplyr::summarise(.tbl, !!!funs)
  5. │     └─dplyr:::summarise.grouped_df(.tbl, !!!funs)
  6. │       └─dplyr:::summarise_cols(.data, dplyr_quosures(...), caller_env = caller_env())
  7. │         ├─base::withCallingHandlers(...)
  8. │         └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
  9. │           └─base::lapply(.x, .f, ...)
 10. │             └─dplyr (local) FUN(X[[i]], ...)
 11. │               └─mask$eval_all_summarise(quo)
 12. ├─dplyr (local) `<fn>`(lode)
 13. └─base::.handleSimpleError(...)
 14.   └─dplyr (local) h(simpleError(msg, call))
 15.     └─rlang::abort(bullets, call = error_call, parent = skip_internal_condition(e))
── Error ('test-stat-flow.r:56'): `stat_flow` orders alluvia correctly according to `aes.bind` ──
Error in `summarise(.tbl, !!!funs)`: Problem while computing `lode = (function (x, order_by = NULL, default =
NULL, na_rm = FALSE) ...`.
ℹ The error occurred in group 1: alluvium = 1, x = 1, yneg = FALSE, stratum =
  "A", deposit = 2, fissure = -2, link = 1, flow = from, adj_deposit = 1.2.4,
  adj_fissure = 1.-2.-2.
Caused by error in `nth()`:
! unused argument (na_rm = na_rm)
Backtrace:
     ▆
  1. ├─StatFlow$compute_panel(data) at test-stat-flow.r:56:2
  2. │ └─ggalluvial (local) compute_panel(..., self = self)
  3. │   └─dplyr::summarize_at(data, "lode", distill)
  4. │     ├─dplyr::summarise(.tbl, !!!funs)
  5. │     └─dplyr:::summarise.grouped_df(.tbl, !!!funs)
  6. │       └─dplyr:::summarise_cols(.data, dplyr_quosures(...), caller_env = caller_env())
  7. │         ├─base::withCallingHandlers(...)
  8. │         └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
  9. │           └─base::lapply(.x, .f, ...)
 10. │             └─dplyr (local) FUN(X[[i]], ...)
 11. │               └─mask$eval_all_summarise(quo)
 12. ├─dplyr (local) `<fn>`(lode)
 13. └─base::.handleSimpleError(...)
 14.   └─dplyr (local) h(simpleError(msg, call))
 15.     └─rlang::abort(bullets, call = error_call, parent = skip_internal_condition(e))
── Error ('test-stat-flow.r:78'): `stat_flow` preserves missingness to position flows ──
Error in `summarise(.tbl, !!!funs)`: Problem while computing `lode = (function (x, order_by = NULL, default =
NULL, na_rm = FALSE) ...`.
ℹ The error occurred in group 1: alluvium = 1, x = 1, yneg = FALSE, stratum =
  A, deposit = 1, fissure = 1, link = 1, flow = from, adj_deposit = 1.1.3,
  adj_fissure = 1.1.1.
Caused by error in `nth()`:
! unused argument (na_rm = na_rm)
Backtrace:
     ▆
  1. ├─StatFlow$compute_panel(data) at test-stat-flow.r:78:2
  2. │ └─ggalluvial (local) compute_panel(..., self = self)
  3. │   └─dplyr::summarize_at(data, "lode", distill)
  4. │     ├─dplyr::summarise(.tbl, !!!funs)
  5. │     └─dplyr:::summarise.grouped_df(.tbl, !!!funs)
  6. │       └─dplyr:::summarise_cols(.data, dplyr_quosures(...), caller_env = caller_env())
  7. │         ├─base::withCallingHandlers(...)
  8. │         └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
  9. │           └─base::lapply(.x, .f, ...)
 10. │             └─dplyr (local) FUN(X[[i]], ...)
 11. │               └─mask$eval_all_summarise(quo)
 12. ├─dplyr (local) `<fn>`(lode)
 13. └─base::.handleSimpleError(...)
 14.   └─dplyr (local) h(simpleError(msg, call))
 15.     └─rlang::abort(bullets, call = error_call, parent = skip_internal_condition(e))
── Failure ('test-stat-flow.r:90'): `stat_flow` handles exceptional data with out errors ──
`ggplot_build(gg)` produced warnings.

[ FAIL 5 | WARN 2 | SKIP 11 | PASS 38 ]
...
autopkgtest [21:38:17]: @@@@@@@@@@@@@@@@@@@@ summary
run-unit-test        FAIL non-zero exit status 1
pkg-r-autopkgtest    PASS