Running ‘testthat.R’ [7s/10s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(brisk)
  > 
  > test_check("brisk")
  Saving _problems/test-plot-26.R
  Saving _problems/test-plot-34.R
  Saving _problems/test-summary-25.R
  [ FAIL 3 | WARN 10 | SKIP 4 | PASS 32 ]
  
  ══ Skipped tests (4) ═══════════════════════════════════════════════════════════
  • On CRAN (4): 'test-plot.R:44:3', 'test-plot.R:52:3', 'test-plot.R:60:3',
    'test-plot.R:68:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-plot.R:26:3'): plot ────────────────────────────────────────────
  Error in `dplyr::summarize(., mean = mean(.data$total), qtiles = safe_quantile(.data$total, prob = !!probs))`: i In argument: `qtiles = safe_quantile(.data$total, prob = c(0.025, 0.975))`.
  i In group 1: `label = "PBO"`.
  Caused by error:
  ! `qtiles` must be size 1, not 2.
  i To return more or less than 1 row per group, use `reframe()`.
  Backtrace:
       ▆
    1. ├─base::plot(out) at test-plot.R:26:3
    2. ├─brisk:::plot.brisk_br(out)
    3. │ ├─base::summary(x, reference = reference)
    4. │ └─brisk:::summary.brisk_br(x, reference = reference)
    5. │   └─scores %>% dplyr::group_by(.data$label) %>% ...
    6. ├─dplyr::summarize(...)
    7. ├─dplyr:::summarise.grouped_df(...)
    8. │ └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "summarise")
    9. │   └─base::withCallingHandlers(...)
   10. ├─dplyr:::dplyr_internal_error(...)
   11. │ └─rlang::abort(class = c(class, "dplyr:::internal_error"), dplyr_error_data = data)
   12. │   └─rlang:::signal_abort(cnd, .file)
   13. │     └─base::signalCondition(cnd)
   14. └─dplyr (local) `<fn>`(`<dpl:::__>`)
   15.   └─dplyr (local) handler(cnd)
   16.     └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test-plot.R:34:3'): plot with ref ───────────────────────────────────
  Error in `dplyr::summarize(., mean = mean(.data$total), qtiles = safe_quantile(.data$total, prob = !!probs))`: i In argument: `qtiles = safe_quantile(.data$total, prob = c(0.025, 0.975))`.
  i In group 1: `label = "TRT"`.
  Caused by error:
  ! `qtiles` must be size 1, not 2.
  i To return more or less than 1 row per group, use `reframe()`.
  Backtrace:
       ▆
    1. ├─base::plot(out, reference = "PBO") at test-plot.R:34:3
    2. ├─brisk:::plot.brisk_br(out, reference = "PBO")
    3. │ ├─base::summary(x, reference = reference)
    4. │ └─brisk:::summary.brisk_br(x, reference = reference)
    5. │   └─scores %>% dplyr::group_by(.data$label) %>% ...
    6. ├─dplyr::summarize(...)
    7. ├─dplyr:::summarise.grouped_df(...)
    8. │ └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "summarise")
    9. │   └─base::withCallingHandlers(...)
   10. ├─dplyr:::dplyr_internal_error(...)
   11. │ └─rlang::abort(class = c(class, "dplyr:::internal_error"), dplyr_error_data = data)
   12. │   └─rlang:::signal_abort(cnd, .file)
   13. │     └─base::signalCondition(cnd)
   14. └─dplyr (local) `<fn>`(`<dpl:::__>`)
   15.   └─dplyr (local) handler(cnd)
   16.     └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test-summary.R:25:3'): summary() ────────────────────────────────────
  Error in `dplyr::summarize(., mean = mean(.data$total), qtiles = safe_quantile(.data$total, prob = !!probs))`: i In argument: `qtiles = safe_quantile(.data$total, prob = c(0.025, 0.975))`.
  i In group 1: `label = "PBO"`.
  Caused by error:
  ! `qtiles` must be size 1, not 2.
  i To return more or less than 1 row per group, use `reframe()`.
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-summary.R:25:3
    2. │ └─testthat::quasi_label(enquo(object), label)
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::summary(res)
    5. ├─brisk:::summary.brisk_br(res)
    6. │ └─scores %>% dplyr::group_by(.data$label) %>% ...
    7. ├─dplyr::summarize(...)
    8. ├─dplyr:::summarise.grouped_df(...)
    9. │ └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "summarise")
   10. │   └─base::withCallingHandlers(...)
   11. ├─dplyr:::dplyr_internal_error(...)
   12. │ └─rlang::abort(class = c(class, "dplyr:::internal_error"), dplyr_error_data = data)
   13. │   └─rlang:::signal_abort(cnd, .file)
   14. │     └─base::signalCondition(cnd)
   15. └─dplyr (local) `<fn>`(`<dpl:::__>`)
   16.   └─dplyr (local) handler(cnd)
   17.     └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  
  [ FAIL 3 | WARN 10 | SKIP 4 | PASS 32 ]
  Deleting unused snapshots: 'plot/plot-ref.png', 'plot/plot-utility-ref.png',
  'plot/plot-utility-stacked-ref.png', 'plot/plot-utility-stacked.png',
  'plot/plot-utility.png', and 'plot/plot.png'
  Error:
  ! Test failures.
  Execution halted