Running ‘gsDesign_independent_code.R’ [0s/1s]
  Running ‘testthat.R’ [146s/222s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(gsDesign)
  Loading required package: ggplot2
  > 
  > test_check("gsDesign")
  Linear spending function with none = [ FAIL 3 | WARN 0 | SKIP 112 | PASS 1479 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (112)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-independent-test-gsBoundSummary.R:54:3): Test with Probability Of Success(POS) set to TRUE ──
  Error in `methods::is(x, c("gsProbability", "gsDesign"))`: length(class2) == 1L is not TRUE
  Backtrace:
       █
    1. ├─testthat::expect_snapshot_output(...) test-independent-test-gsBoundSummary.R:54:2
    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. └─gsDesign::gsBoundSummary(x, Nname = "Information", POS = TRUE)
    8.   ├─base::paste(...)
    9.   └─gsDesign::gsCPOS(i = i, x = x, theta = prior$z, wgts = prior$wgts)
   10.     └─methods::is(x, c("gsProbability", "gsDesign"))
   11.       └─base::stopifnot(length(class2) == 1L)
  ── Error (test-independent-test-gsCPOS.R:43:3): Test: output validation 
                      source: gsDesign_independent_code.R ──
  Error in `methods::is(x, c("gsProbability", "gsDesign"))`: length(class2) == 1L is not TRUE
  Backtrace:
      █
   1. └─gsDesign::gsCPOS(x, i = 2, theta = theta, wgts = wgts) test-independent-test-gsCPOS.R:43:2
   2.   └─methods::is(x, c("gsProbability", "gsDesign"))
   3.     └─base::stopifnot(length(class2) == 1L)
  ── Error (test-independent-test-gsPOS.R:38:3): Test: checking output validation,
                      source: calculation done in excel using the formula in the gsDesign manual ──
  Error in `methods::is(x, c("gsProbability", "gsDesign"))`: length(class2) == 1L is not TRUE
  Backtrace:
      █
   1. └─gsDesign::gsPOS(...) test-independent-test-gsPOS.R:38:2
   2.   └─methods::is(x, c("gsProbability", "gsDesign"))
   3.     └─base::stopifnot(length(class2) == 1L)
  
  [ FAIL 3 | WARN 0 | SKIP 112 | PASS 1479 ]
  Error: Test failures
  Execution halted