Running ‘testthat.R’ [1s/1s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(gscounts)
  > 
  > test_check("gscounts")
  ── 1. Error: (unknown) (@test_bindingfut.R#10)  ────────────────────────────────
  there is no package called 'gsDesign'
  1: gsDesign::gsDesign at testthat/test_bindingfut.R:10
  2: getExportedValue(pkg, name)
  3: asNamespace(ns)
  4: getNamespace(ns)
  5: tryCatch(loadNamespace(name), error = function(e) stop(e))
  6: tryCatchList(expr, classes, parentenv, handlers)
  7: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  8: value[[3L]](cond)
  
  ── 2. Error: (unknown) (@test_efficacy.R#9)  ───────────────────────────────────
  there is no package called 'gsDesign'
  1: gsDesign::gsDesign at testthat/test_efficacy.R:9
  2: getExportedValue(pkg, name)
  3: asNamespace(ns)
  4: getNamespace(ns)
  5: tryCatch(loadNamespace(name), error = function(e) stop(e))
  6: tryCatchList(expr, classes, parentenv, handlers)
  7: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  8: value[[3L]](cond)
  
  ── 3. Error: (unknown) (@test_nonbindingfut.R#11)  ─────────────────────────────
  there is no package called 'gsDesign'
  1: gsDesign::gsDesign at testthat/test_nonbindingfut.R:11
  2: getExportedValue(pkg, name)
  3: asNamespace(ns)
  4: getNamespace(ns)
  5: tryCatch(loadNamespace(name), error = function(e) stop(e))
  6: tryCatchList(expr, classes, parentenv, handlers)
  7: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  8: value[[3L]](cond)
  
  ── 4. Error: Pocock spending function matches gsdesign (@test_spending.R#5)  ───
  there is no package called 'gsDesign'
  1: expect_equal(pocock(t = c(0.4, 0.75, 1), sig_level = 0.05), gsDesign::sfLDPocock(alpha = 0.05, 
         t = c(0.4, 0.75, 1))$spend) at testthat/test_spending.R:5
  2: quasi_label(enquo(expected), expected.label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: gsDesign::sfLDPocock
  5: getExportedValue(pkg, name)
  6: asNamespace(ns)
  7: getNamespace(ns)
  8: tryCatch(loadNamespace(name), error = function(e) stop(e))
  9: tryCatchList(expr, classes, parentenv, handlers)
  10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  11: value[[3L]](cond)
  
  ── 5. Error: OBF spending function matches gsdesign (@test_spending.R#10)  ─────
  there is no package called 'gsDesign'
  1: expect_equal(obrien(t = c(0.1, 0.4, 0.75, 1), sig_level = 0.1), gsDesign::sfLDOF(alpha = 0.1, 
         t = c(0.1, 0.4, 0.75, 1))$spend) at testthat/test_spending.R:10
  2: quasi_label(enquo(expected), expected.label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: gsDesign::sfLDOF
  5: getExportedValue(pkg, name)
  6: asNamespace(ns)
  7: getNamespace(ns)
  8: tryCatch(loadNamespace(name), error = function(e) stop(e))
  9: tryCatchList(expr, classes, parentenv, handlers)
  10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  11: value[[3L]](cond)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 0 SKIPPED: 0 FAILED: 5
  1. Error: (unknown) (@test_bindingfut.R#10) 
  2. Error: (unknown) (@test_efficacy.R#9) 
  3. Error: (unknown) (@test_nonbindingfut.R#11) 
  4. Error: Pocock spending function matches gsdesign (@test_spending.R#5) 
  5. Error: OBF spending function matches gsdesign (@test_spending.R#10) 
  
  Error: testthat unit tests failed
  Execution halted