Running ‘testthat.R’ [4s/4s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/tests.html
  > # * https://testthat.r-lib.org/reference/test_package.html#special-files
  > 
  > library(testthat)
  > library(tipmap)
  > 
  > test_check("tipmap")
  Saving _problems/test-draw_beta_mixture_nsamples-9.R
  Saving _problems/test-draw_beta_mixture_nsamples-24.R
  Saving _problems/test-fit_beta_mult_exp-8.R
  Saving _problems/test-get_summary_mult_exp-9.R
  Saving _problems/test-get_summary_mult_exp-41.R
  Treatment effect in target population without borrowing
  Treatment effect in target population without borrowing
  95% credible interval for MAP prior includes null treatment effect
  95% credible interval for MAP prior includes null treatment effect
  Treatment effect in target population without borrowing
  Treatment effect in target population without borrowing
  Treatment effect in target population without borrowing
  Weight 0 identified for tipping point of quantile 0.025
  Weight 0 identified for tipping point of quantile 0.05
  Weight 0 identified for tipping point of quantile 0.1
  Weight 0 identified for tipping point of quantile 0.2
  Treatment effect in target population without borrowing
  95% credible interval for MAP prior includes null treatment effect
  [ FAIL 5 | WARN 2 | SKIP 0 | PASS 185 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-draw_beta_mixture_nsamples.R:9:3'): draw_beta_mixture_nsamples returns values in [0, 1] ──
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map(.x = chips_rows, .f = ~get_model_input_1exp(cum_probs = get_cum_probs_1exp(.x)))`: i In index: 2.
  Caused by error:
  ! `cum_probs` must lie in [0, 1]
  Backtrace:
       ▆
    1. ├─tipmap::draw_beta_mixture_nsamples(n = 50, chips_mult = chips_mult) at test-draw_beta_mixture_nsamples.R:9:3
    2. │ └─tipmap::fit_beta_mult_exp(chips_mult)
    3. │   └─purrr::map(.x = chips_rows, .f = ~get_model_input_1exp(cum_probs = get_cum_probs_1exp(.x)))
    4. │     └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
    5. │       ├─purrr:::with_indexed_errors(...)
    6. │       │ └─base::withCallingHandlers(...)
    7. │       ├─purrr:::call_with_cleanup(...)
    8. │       └─tipmap (local) .f(.x[[i]], ...)
    9. │         └─tipmap::get_model_input_1exp(cum_probs = get_cum_probs_1exp(.x))
   10. │           └─assertthat::assert_that(...)
   11. │             └─base::stop(assertError(attr(res, "msg")))
   12. └─purrr (local) `<fn>`(`<assrtErr>`)
   13.   └─cli::cli_abort(...)
   14.     └─rlang::abort(...)
  ── Error ('test-draw_beta_mixture_nsamples.R:24:3'): draw_beta_mixture_nsamples is reproducible under set.seed ──
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map(.x = chips_rows, .f = ~get_model_input_1exp(cum_probs = get_cum_probs_1exp(.x)))`: i In index: 2.
  Caused by error:
  ! `cum_probs` must lie in [0, 1]
  Backtrace:
       ▆
    1. ├─tipmap::draw_beta_mixture_nsamples(n = 10, chips_mult = chips_mult) at test-draw_beta_mixture_nsamples.R:24:3
    2. │ └─tipmap::fit_beta_mult_exp(chips_mult)
    3. │   └─purrr::map(.x = chips_rows, .f = ~get_model_input_1exp(cum_probs = get_cum_probs_1exp(.x)))
    4. │     └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
    5. │       ├─purrr:::with_indexed_errors(...)
    6. │       │ └─base::withCallingHandlers(...)
    7. │       ├─purrr:::call_with_cleanup(...)
    8. │       └─tipmap (local) .f(.x[[i]], ...)
    9. │         └─tipmap::get_model_input_1exp(cum_probs = get_cum_probs_1exp(.x))
   10. │           └─assertthat::assert_that(...)
   11. │             └─base::stop(assertError(attr(res, "msg")))
   12. └─purrr (local) `<fn>`(`<assrtErr>`)
   13.   └─cli::cli_abort(...)
   14.     └─rlang::abort(...)
  ── Error ('test-fit_beta_mult_exp.R:8:3'): fit_beta_mult_exp returns one row per expert ──
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map(.x = chips_rows, .f = ~get_model_input_1exp(cum_probs = get_cum_probs_1exp(.x)))`: i In index: 2.
  Caused by error:
  ! `cum_probs` must lie in [0, 1]
  Backtrace:
       ▆
    1. ├─tipmap::fit_beta_mult_exp(chips_mult) at test-fit_beta_mult_exp.R:8:3
    2. │ └─purrr::map(.x = chips_rows, .f = ~get_model_input_1exp(cum_probs = get_cum_probs_1exp(.x)))
    3. │   └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
    4. │     ├─purrr:::with_indexed_errors(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     ├─purrr:::call_with_cleanup(...)
    7. │     └─tipmap (local) .f(.x[[i]], ...)
    8. │       └─tipmap::get_model_input_1exp(cum_probs = get_cum_probs_1exp(.x))
    9. │         └─assertthat::assert_that(...)
   10. │           └─base::stop(assertError(attr(res, "msg")))
   11. └─purrr (local) `<fn>`(`<assrtErr>`)
   12.   └─cli::cli_abort(...)
   13.     └─rlang::abort(...)
  ── Error ('test-get_summary_mult_exp.R:9:3'): get_summary_mult_exp returns summary statistics ──
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map(.x = chips_rows, .f = ~get_model_input_1exp(cum_probs = get_cum_probs_1exp(.x)))`: i In index: 2.
  Caused by error:
  ! `cum_probs` must lie in [0, 1]
  Backtrace:
       ▆
    1. ├─tipmap::get_summary_mult_exp(chips_mult = chips_mult, n = 50) at test-get_summary_mult_exp.R:9:3
    2. │ └─tipmap::draw_beta_mixture_nsamples(...)
    3. │   └─tipmap::fit_beta_mult_exp(chips_mult)
    4. │     └─purrr::map(.x = chips_rows, .f = ~get_model_input_1exp(cum_probs = get_cum_probs_1exp(.x)))
    5. │       └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
    6. │         ├─purrr:::with_indexed_errors(...)
    7. │         │ └─base::withCallingHandlers(...)
    8. │         ├─purrr:::call_with_cleanup(...)
    9. │         └─tipmap (local) .f(.x[[i]], ...)
   10. │           └─tipmap::get_model_input_1exp(cum_probs = get_cum_probs_1exp(.x))
   11. │             └─assertthat::assert_that(...)
   12. │               └─base::stop(assertError(attr(res, "msg")))
   13. └─purrr (local) `<fn>`(`<assrtErr>`)
   14.   └─cli::cli_abort(...)
   15.     └─rlang::abort(...)
  ── Error ('test-get_summary_mult_exp.R:37:3'): get_summary_mult_exp works with custom expert weights ──
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map(.x = chips_rows, .f = ~get_model_input_1exp(cum_probs = get_cum_probs_1exp(.x)))`: i In index: 2.
  Caused by error:
  ! `cum_probs` must lie in [0, 1]
  Backtrace:
       ▆
    1. ├─tipmap::get_summary_mult_exp(...) at test-get_summary_mult_exp.R:37:3
    2. │ └─tipmap::draw_beta_mixture_nsamples(...)
    3. │   └─tipmap::fit_beta_mult_exp(chips_mult)
    4. │     └─purrr::map(.x = chips_rows, .f = ~get_model_input_1exp(cum_probs = get_cum_probs_1exp(.x)))
    5. │       └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
    6. │         ├─purrr:::with_indexed_errors(...)
    7. │         │ └─base::withCallingHandlers(...)
    8. │         ├─purrr:::call_with_cleanup(...)
    9. │         └─tipmap (local) .f(.x[[i]], ...)
   10. │           └─tipmap::get_model_input_1exp(cum_probs = get_cum_probs_1exp(.x))
   11. │             └─assertthat::assert_that(...)
   12. │               └─base::stop(assertError(attr(res, "msg")))
   13. └─purrr (local) `<fn>`(`<assrtErr>`)
   14.   └─cli::cli_abort(...)
   15.     └─rlang::abort(...)
  
  [ FAIL 5 | WARN 2 | SKIP 0 | PASS 185 ]
  Error:
  ! Test failures.
  Execution halted