Running ‘testthat.R’ [19s/29s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(bistablehistory)
  Loading required package: loo
  This is loo version 2.9.0
  - Online documentation and vignettes at mc-stan.org/loo
  - As of v2.0.0 loo defaults to 1 core but we recommend using as many as possible. Use the 'cores' argument or set options(mc.cores = NUM_CORES) for an entire session. 
  
  Attaching package: 'loo'
  
  The following object is masked from 'package:testthat':
  
      compare
  
  Loading required package: rlang
  Loading required package: rstantools
  This is rstantools version 2.6.0
  
  Attaching package: 'bistablehistory'
  
  The following object is masked from 'package:loo':
  
      loo
  
  > 
  > test_check("bistablehistory")
  Saving _problems/test-fit_and_post_fit_utilities-44.R
  [ FAIL 1 | WARN 1 | SKIP 0 | PASS 97 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-fit_and_post_fit_utilities.R:44:3'): test fit and post fit utilities ──
  Error in `dplyr::summarise(., DistributionParameter = rep(.data$DistributionParameter, dim(bF)[1]), Term = rep(.data$Term, dim(bF)[1]), .groups = "keep")`: ℹ In argument: `DistributionParameter = rep(.data$DistributionParameter,
    dim(bF)[1])`.
  ℹ In group 1: `DistributionParameter = 1`, `Term = 1`.
  Caused by error:
  ! `DistributionParameter` must be size 1, not 1000.
  ℹ To return more or less than 1 row per group, use `reframe()`.
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(fixef(fit), "data.frame") at test-fit_and_post_fit_utilities.R:44:3
    2. │ └─testthat::quasi_label(enquo(object))
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─bistablehistory::fixef(fit)
    5. │ └─... %>% ...
    6. ├─dplyr::mutate(...)
    7. ├─dplyr::mutate(...)
    8. ├─dplyr::mutate(., Estimate = c(bF))
    9. ├─dplyr::ungroup(.)
   10. ├─dplyr::summarise(...)
   11. ├─dplyr:::summarise.grouped_df(...)
   12. │ └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "summarise")
   13. │   └─base::withCallingHandlers(...)
   14. ├─dplyr:::dplyr_internal_error(...)
   15. │ └─rlang::abort(class = c(class, "dplyr:::internal_error"), dplyr_error_data = data)
   16. │   └─rlang:::signal_abort(cnd, .file)
   17. │     └─base::signalCondition(cnd)
   18. └─dplyr (local) `<fn>`(`<dpl:::__>`)
   19.   └─dplyr (local) handler(cnd)
   20.     └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  
  [ FAIL 1 | WARN 1 | SKIP 0 | PASS 97 ]
  Error:
  ! Test failures.
  Execution halted