Running 'testthat.R' [26s/31s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(DesignLibrary)
  Loading required package: DeclareDesign
  Loading required package: randomizr
  Loading required package: fabricatr
  Loading required package: estimatr
  > 
  > test_check(package = "DesignLibrary")
  [1] "The implied ICC in (control) is 0.667"
  [1] "The implied ICC in (control) conditional on block is  0.5"
  -- 1. Error: block_cluster_two_arm_designer's default design runs. (@test_design
  contrasts can be applied only to factors with 2 or more levels
  Backtrace:
    1. testthat::expect_is(...)
    4. DeclareDesign::diagnose_design(one_design, sims = 10, bootstrap_sims = FALSE)
    5. DeclareDesign::simulate_design(!!!dots, sims = sims)
    6. base::mapply(...)
    8. DeclareDesign:::future_lapply(...)
    9. future.apply::future_lapply(..., future.seed = future.seed, future.globals = future.globals)
   10. future.apply:::future_xapply(...)
   12. future:::values.list(fs)
   14. future:::resolve.list(...)
   15. future:::signalConditionsASAP(obj, resignal = FALSE, pos = ii)
   16. future:::signalConditions(...)
  
  [1] "The implied ICC in (control) is 0.667"
  [1] "The implied ICC in (control) conditional on block is  0.5"
  [1] "The implied ICC in (control) is 0.667"
  [1] "The implied ICC in (control) conditional on block is  0.5"
  [1] "The implied ICC in (control) is 0.667"
  [1] "The implied ICC in (control) conditional on block is  0.5"
  -- 2. Error: No column names in estimator data.frame conflict with parameters in
  contrasts can be applied only to factors with 2 or more levels
  Backtrace:
    1. DeclareDesign::draw_estimates(the_designer())
    2. DeclareDesign:::apply_on_design_dots(...)
    3. base::lapply(designs, FUN)
    4. DeclareDesign:::FUN(X[[i]], ...)
    5. DeclareDesign:::get_function_internal(...)
    6. DeclareDesign:::run_design_internal.design(...)
    7. DeclareDesign:::next_step(step, current_df, i)
    8. base::tryCatch(...)
    9. base:::tryCatchList(expr, classes, parentenv, handlers)
   10. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   11. value[[3L]](cond)
  
  == testthat results  ===========================================================
  [ OK: 324 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 2 ]
  1. Error: block_cluster_two_arm_designer's default design runs. (@test_designers.R#36) 
  2. Error: No column names in estimator data.frame conflict with parameters in block_cluster_two_arm_designer (@test_designers.R#127) 
  
  Error: testthat unit tests failed
  Execution halted