Running ‘spelling.R’ [0s/1s]
  Comparing ‘spelling.Rout’ to ‘spelling.Rout.save’ ...6c6
< NULL
---
> All Done!
  Running ‘testthat.R’ [211s/309s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(ppseq)
  > 
  > test_check("ppseq")
  
  Attaching package: 'purrr'
  
  The following object is masked from 'package:testthat':
  
      is_null
  
  Joining with `by = join_by(sim_num, pp_threshold, ppp_threshold)`
  Joining with `by = join_by(sim_num, pp_threshold, ppp_threshold)`
  Joining with `by = join_by(sim_num, pp_threshold, ppp_threshold)`
  Joining with `by = join_by(sim_num, pp_threshold, ppp_threshold)`
  Joining with `by = join_by(sim_num, pp_threshold, ppp_threshold)`
  Joining with `by = join_by(sim_num, pp_threshold, ppp_threshold)`
  Joining with `by = join_by(sim_num, pp_threshold, ppp_threshold)`
  [ FAIL 4 | WARN 7 | SKIP 16 | PASS 59 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (16)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-calc_decision_rules.R:7:5'): one-sample calc_decision_rules works ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_snapshot_output(...) at test-calc_decision_rules.R:7:4
    2. │ └─testthat::capture_output_lines(x, print = TRUE, width = NULL)
    3. │   └─testthat:::eval_with_output(code, print = print, width = width)
    4. │     ├─withr::with_output_sink(path, withVisible(code))
    5. │     │ └─base::force(code)
    6. │     └─base::withVisible(code)
    7. └─ppseq::calc_decision_rules(...)
    8.   ├─base::`[<-`(`*tmp*`, i == n, 2, value = `<int>`)
    9.   └─tibble:::`[<-.tbl_df`(`*tmp*`, i == n, 2, value = `<int>`)
   10.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   12.         ├─base::withCallingHandlers(...)
   13.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-calc_decision_rules.R:28:5'): two-sample calc_decision_rules works ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_snapshot_output(...) at test-calc_decision_rules.R:28:4
    2. │ └─testthat::capture_output_lines(x, print = TRUE, width = NULL)
    3. │   └─testthat:::eval_with_output(code, print = print, width = width)
    4. │     ├─withr::with_output_sink(path, withVisible(code))
    5. │     │ └─base::force(code)
    6. │     └─base::withVisible(code)
    7. └─ppseq::calc_decision_rules(...)
    8.   ├─base::`[<-`(`*tmp*`, i, "r1", value = `<int>`)
    9.   └─tibble:::`[<-.tbl_df`(`*tmp*`, i, "r1", value = `<int>`)
   10.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   12.         ├─base::withCallingHandlers(...)
   13.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-plot.R:73:5'): plot one-sample decision rules works ────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─ppseq::calc_decision_rules(...) at test-plot.R:73:4
   2.   ├─base::`[<-`(`*tmp*`, i == n, 2, value = `<int>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, i == n, 2, value = `<int>`)
   4.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   5.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   6.         ├─base::withCallingHandlers(...)
   7.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-plot.R:104:5'): plot two-sample decision rules works ───────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─ppseq::calc_decision_rules(...) at test-plot.R:104:4
   2.   ├─base::`[<-`(`*tmp*`, i, "r1", value = `<int>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, i, "r1", value = `<int>`)
   4.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   5.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   6.         ├─base::withCallingHandlers(...)
   7.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 4 | WARN 7 | SKIP 16 | PASS 59 ]
  Deleting unused snapshots:
  • plot/plot-one-sample-cal-tbl-plotly.svg
  • plot/plot-one-sample-decision-rules-plotly.svg
  • plot/plot-one-sample-decision-rules.svg
  • plot/plot-two-sample-decision-rules.svg
  Error: Test failures
  Execution halted