Running ‘testthat.R’ [48s/61s]
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")
  [ FAIL 4 | WARN 0 | SKIP 0 | PASS 386 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_composite.R:118:5'): show works ────────────────────────────────
  Error in `glue_data(.x = NULL, ..., .sep = .sep, .envir = .envir, .open = .open, 
      .close = .close, .na = .na, .null = .null, .comment = .comment, 
      .literal = .literal, .transformer = .transformer, .trim = .trim)`: is.environment(.envir) is not TRUE
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test_composite.R:118:5
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─utils::capture.output(...)
    5. │ └─base::withVisible(...elt(i))
    6. ├─methods::show(...)
    7. └─adoptr (local) show(...)
    8.   ├─base::cat(as_character(object), "\n")
    9.   ├─adoptr:::as_character(object)
   10.   └─adoptr:::as_character(object)
   11.     └─glue::glue(...)
   12.       └─glue::glue_data(...)
   13.         └─base::stopifnot(is.environment(.envir))
  ── Error ('test_minimize.R:59:5'): nloptr maxiter warning correctly passed ─────
  Error: Failed to evaluate glue component {as_character(x@score)}
  Caused by error in `glue_data()`:
  ! is.environment(.envir) is not TRUE
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test_minimize.R:59:5
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─adoptr::minimize(...)
    7. │ ├─base::warning(...)
    8. │ ├─base::sprintf(...)
    9. │ ├─utils::capture.output(show(constr))
   10. │ │ └─base::withVisible(...elt(i))
   11. │ ├─methods::show(constr)
   12. │ └─adoptr (local) show(constr)
   13. │   ├─base::cat(print(object), "\n")
   14. │   ├─base::print(object)
   15. │   └─adoptr:::print(object)
   16. │     ├─glue::glue("{as_character(x@score)} <= {x@rhs}")
   17. │     │ └─glue::glue_data(...)
   18. │     ├─adoptr:::as_character(x@score)
   19. │     └─adoptr:::as_character(x@score)
   20. │       └─glue::glue(...)
   21. │         └─glue::glue_data(...)
   22. │           └─base::stopifnot(is.environment(.envir))
   23. │             └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
   24. ├─glue (local) `<fn>`("as_character(x@score)")
   25. │ ├─.transformer(expr, env) %||% .null
   26. │ └─glue (local) .transformer(expr, env)
   27. │   ├─glue:::with_glue_error(...)
   28. │   │ └─base::withCallingHandlers(...)
   29. │   └─base::eval(expr, envir)
   30. │     └─base::eval(expr, envir)
   31. └─glue (local) `<fn>`(`<smplErrr>`)
   32.   └─rlang::abort(message, parent = cnd, call = NULL)
  ── Error ('test_minimize.R:338:3'): constraint checks are working ──────────────
  Error: Failed to evaluate glue component {as_character(x@score)}
  Caused by error in `glue_data()`:
  ! is.environment(.envir) is not TRUE
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test_minimize.R:338:3
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─adoptr::minimize(...)
    7. │ ├─base::warning(...)
    8. │ ├─base::sprintf(...)
    9. │ ├─utils::capture.output(show(constr))
   10. │ │ └─base::withVisible(...elt(i))
   11. │ ├─methods::show(constr)
   12. │ └─adoptr (local) show(constr)
   13. │   ├─base::cat(print(object), "\n")
   14. │   ├─base::print(object)
   15. │   └─adoptr:::print(object)
   16. │     ├─glue::glue("{as_character(x@score)} <= {x@rhs}")
   17. │     │ └─glue::glue_data(...)
   18. │     ├─adoptr:::as_character(x@score)
   19. │     └─adoptr:::as_character(x@score)
   20. │       └─glue::glue(...)
   21. │         └─glue::glue_data(...)
   22. │           └─base::stopifnot(is.environment(.envir))
   23. │             └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
   24. ├─glue (local) `<fn>`("as_character(x@score)")
   25. │ ├─.transformer(expr, env) %||% .null
   26. │ └─glue (local) .transformer(expr, env)
   27. │   ├─glue:::with_glue_error(...)
   28. │   │ └─base::withCallingHandlers(...)
   29. │   └─base::eval(expr, envir)
   30. │     └─base::eval(expr, envir)
   31. └─glue (local) `<fn>`(`<smplErrr>`)
   32.   └─rlang::abort(message, parent = cnd, call = NULL)
  ── Error ('test_tunable.R:77:5'): two stage design can be optimized with fixed first stage ──
  Error: Failed to evaluate glue component {as_character(x@score)}
  Caused by error in `glue_data()`:
  ! is.environment(.envir) is not TRUE
  Backtrace:
       ▆
    1. ├─base::suppressWarnings(...) at test_tunable.R:77:5
    2. │ └─base::withCallingHandlers(...)
    3. ├─adoptr::minimize(...)
    4. │ ├─base::warning(...)
    5. │ ├─base::sprintf(...)
    6. │ ├─utils::capture.output(show(constr))
    7. │ │ └─base::withVisible(...elt(i))
    8. │ ├─methods::show(constr)
    9. │ └─adoptr (local) show(constr)
   10. │   ├─base::cat(print(object), "\n")
   11. │   ├─base::print(object)
   12. │   └─adoptr:::print(object)
   13. │     ├─glue::glue("{as_character(x@score)} <= {x@rhs}")
   14. │     │ └─glue::glue_data(...)
   15. │     ├─adoptr:::as_character(x@score)
   16. │     └─adoptr:::as_character(x@score)
   17. │       └─glue::glue(...)
   18. │         └─glue::glue_data(...)
   19. │           └─base::stopifnot(is.environment(.envir))
   20. │             └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
   21. ├─glue (local) `<fn>`("as_character(x@score)")
   22. │ ├─.transformer(expr, env) %||% .null
   23. │ └─glue (local) .transformer(expr, env)
   24. │   ├─glue:::with_glue_error(...)
   25. │   │ └─base::withCallingHandlers(...)
   26. │   └─base::eval(expr, envir)
   27. │     └─base::eval(expr, envir)
   28. └─glue (local) `<fn>`(`<smplErrr>`)
   29.   └─rlang::abort(message, parent = cnd, call = NULL)
  
  [ FAIL 4 | WARN 0 | SKIP 0 | PASS 386 ]
  Error: Test failures
  Execution halted