Running ‘testthat.R’ [50s/74s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(adoptr)
  
  Attaching package: 'adoptr'
  
  The following object is masked from 'package:testthat':
  
      expectation
  
  > 
  > test_check("adoptr")
  AffineUnconditionalScoreAffineConditionalScoreConditionalPowerConditionalSampleSizeContinuousPriorContinuousPriorNormalNormalGroupSequentialDesignGroupSequentialDesign── 1. Error: Expected sample size is computed correctly (@test_IntegralScores.R#
  'numberOfPatientsGroup1' is not a valid field or method name for reference class "TrialDesignPlanMeans"
  1: res$numberOfPatientsGroup1 at testthat/test_IntegralScores.R:19
  2: res$numberOfPatientsGroup1
  3: envRefInferField(x, what, getClass(class(x)), selfEnv)
  4: stop(gettextf("%s is not a valid field or method name for reference class %s", sQuote(field), 
         dQuote(thisClass@className)), domain = NA)
  
  ── 2. Error: Power is computed correctly for example design (@test_IntegralScore
  object 'design_gs' not found
  1: expect_equal(evaluate(pow, design_gs), 0.8, tolerance = 0.01) at testthat/test_IntegralScores.R:105
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: evaluate(pow, design_gs)
  
  ── 3. Error: Type one error is computed correctly for example design (@test_Inte
  object 'design_gs' not found
  1: expect_equal(evaluate(toer, design_gs), 0.05, tolerance = 0.005) at testthat/test_IntegralScores.R:129
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: evaluate(toer, design_gs)
  
  ── 4. Error: arithmetic works (@test_IntegralScores.R#155)  ────────────────────
  object 'design_gs' not found
  1: expect_equal(evaluate(pow + ess, design_gs), evaluate(pow, design_gs) + evaluate(ess, 
         design_gs)) at testthat/test_IntegralScores.R:155
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: evaluate(pow + ess, design_gs)
  
  IntegralScoreIntegralScoreOneStageDesignOneStageDesignPointMassPriorPointMassPriorTwoStageDesign with:
  
       n1:  50.00
  
      c1f:   0.70
  
      c1e:   2.50
  
   max n2:  50.00
  
   min n2:  50.00
  
  5 integration pivots at: 0.78, 1.12, 1.60, 2.08, 2.42
  
      integration weights: 0.24, 0.48, 0.57, 0.48, 0.24
  
  Unconditional scores:
  
           Power:   0.613
  
  
  NULL
  TwoStageDesignTwoStageDesignConditionalConstraintConditionalConstraint── 5. Error: Optimal group-sequential design is superior to standard gs design (
  'numberOfPatientsGroup1' is not a valid field or method name for reference class "TrialDesignPlanMeans"
  1: res$numberOfPatientsGroup1 at testthat/test_minimize.R:165
  2: res$numberOfPatientsGroup1
  3: envRefInferField(x, what, getClass(class(x)), selfEnv)
  4: stop(gettextf("%s is not a valid field or method name for reference class %s", sQuote(field), 
         dQuote(thisClass@className)), domain = NA)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 221 SKIPPED: 1 WARNINGS: 0 FAILED: 5
  1. Error: Expected sample size is computed correctly (@test_IntegralScores.R#19) 
  2. Error: Power is computed correctly for example design (@test_IntegralScores.R#105) 
  3. Error: Type one error is computed correctly for example design (@test_IntegralScores.R#129) 
  4. Error: arithmetic works (@test_IntegralScores.R#155) 
  5. Error: Optimal group-sequential design is superior to standard gs design (@test_minimize.R#165) 
  
  Error: testthat unit tests failed
  Execution halted