Running 'testthat.R' [3s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(table.glue)
  > 
  > test_check("table.glue")
  [ FAIL 8 | WARN 0 | SKIP 0 | PASS 52 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-round_spec.R:40:3'): formatting 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(table_value(1000.234567, rspec), "1big000decimal!23oh noes45oh noes7") at test-round_spec.R:40:3
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─table.glue::table_value(1000.234567, rspec)
   5.   └─glue::glue("{round_using}_{round_half}", .envir = .rspec)
   6.     └─glue::glue_data(...)
   7.       └─base::stopifnot(is.environment(.envir))
  ── Error ('test-table_glue.R:11:3'): unnamed inputs are caught ─────────────────
  Error: Failed to evaluate glue component {..f(x)}
  Caused by error in `glue_data()`:
  ! is.environment(.envir) is not TRUE
  Backtrace:
       ▆
    1. ├─table.glue (local) ..f(x)
    2. │ ├─base::trimws(table_value(x, rspec = .rspec))
    3. │ │ ├─base (local) mysub(...)
    4. │ │ │ └─base::sub(re, "", x, perl = TRUE)
    5. │ │ │   └─base::is.factor(x)
    6. │ │ └─base (local) mysub(paste0("^", whitespace, "+"), x)
    7. │ │   └─base::sub(re, "", x, perl = TRUE)
    8. │ │     └─base::is.factor(x)
    9. │ └─table.glue::table_value(x, rspec = .rspec)
   10. │   └─glue::glue("{round_using}_{round_half}", .envir = .rspec)
   11. │     └─glue::glue_data(...)
   12. │       └─base::stopifnot(is.environment(.envir))
   13. │         └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
   14. └─glue (local) `<fn>`(`<smplErrr>`)
   15.   └─rlang::abort(message, parent = cnd, call = NULL)
  ── Error ('test-table_pvalue.R:7:3'): missings are handled correctly ───────────
  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-table_pvalue.R:7:3
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─table.glue::table_pvalue(pvals_missing)
   5.   └─table.glue::table_value(...)
   6.     └─glue::glue("{round_using}_{round_half}", .envir = .rspec)
   7.       └─glue::glue_data(...)
   8.         └─base::stopifnot(is.environment(.envir))
  ── Error ('test-table_pvalue.R:28:3'): example values are correct ──────────────
  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-table_pvalue.R:28:3
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─table.glue::table_pvalue(...)
   5.   └─table.glue::table_value(...)
   6.     └─glue::glue("{round_using}_{round_half}", .envir = .rspec)
   7.       └─glue::glue_data(...)
   8.         └─base::stopifnot(is.environment(.envir))
  ── Error ('test-table_pvalue.R:52:3'): boundary p-values are not made insignificant ──
  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-table_pvalue.R:52:3
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─table.glue::table_pvalue(pvals_close, alpha = 0.15)
   5.   └─table.glue::table_value(...)
   6.     └─glue::glue("{round_using}_{round_half}", .envir = .rspec)
   7.       └─glue::glue_data(...)
   8.         └─base::stopifnot(is.environment(.envir))
  ── Error ('test-table_pvalue.R:63:3'): boundaries can be moved ─────────────────
  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-table_pvalue.R:63:3
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─table.glue::table_pvalue(...)
   5.   └─table.glue::table_value(...)
   6.     └─glue::glue("{round_using}_{round_half}", .envir = .rspec)
   7.       └─glue::glue_data(...)
   8.         └─base::stopifnot(is.environment(.envir))
  ── Error ('test-table_value.R:29:3'): rounding specifications match intent ─────
  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-table_value.R:29:3
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─table.glue::table_value(x, rspec_sig_1_even)
   5.   └─glue::glue("{round_using}_{round_half}", .envir = .rspec)
   6.     └─glue::glue_data(...)
   7.       └─base::stopifnot(is.environment(.envir))
  ── Error ('test-table_value.R:77:3'): rounding on boundaries matches specification ──
  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-table_value.R:77:3
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─table.glue::table_value(x, rspec_mag_up)
   5.   └─glue::glue("{round_using}_{round_half}", .envir = .rspec)
   6.     └─glue::glue_data(...)
   7.       └─base::stopifnot(is.environment(.envir))
  
  [ FAIL 8 | WARN 0 | SKIP 0 | PASS 52 ]
  Error: Test failures
  Execution halted