Running ‘testthat.R’ [184s/206s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(metacore)
  > 
  > test_check("metacore")
  
  [ FAIL 2 | WARN 1 | SKIP 0 | PASS 67 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-checks.R:16'): Test label Checks ───────────────────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(., across(everything(), function(x) {
      attr(x, "label") <- NULL
      x
  }))`: ℹ In argument: `across(...)`.
  ℹ In group 3: `var1 = "CHG"`.
  Caused by error in `across()`:
  ! Can't compute column `variable`.
  Caused by error in `dplyr_internal_error()`:
  Backtrace:
       ▆
    1. ├─check_inconsistent_labels(metacore) %>% ... at test-checks.R:16:3
    2. ├─dplyr::arrange(., variable, label)
    3. ├─metacore::check_inconsistent_labels(metacore)
    4. │ └─metacore:::basic_check(label, metacore)
    5. │   └─... %>% select(variable = var1, everything())
    6. ├─dplyr::select(., variable = var1, everything())
    7. ├─dplyr::summarise(...)
    8. ├─dplyr::group_by(...)
    9. ├─dplyr::mutate(...)
   10. ├─dplyr:::mutate.data.frame(...)
   11. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
   12. │   ├─base::withCallingHandlers(...)
   13. │   └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
   14. │     ├─base::withCallingHandlers(...)
   15. │     └─mask$eval_all_mutate(quo)
   16. │       └─dplyr (local) eval()
   17. ├─dplyr:::dplyr_internal_error(...)
   18. │ └─rlang::abort(class = c(class, "dplyr:::internal_error"), dplyr_error_data = data)
   19. │   └─rlang:::signal_abort(cnd, .file)
   20. │     └─base::signalCondition(cnd)
   21. ├─dplyr (local) `<fn>`(`<dpl:::__>`)
   22. │ └─rlang::abort(msg, call = call("across"), parent = cnd)
   23. │   └─rlang:::signal_abort(cnd, .file)
   24. │     └─base::signalCondition(cnd)
   25. └─dplyr (local) `<fn>`(`<rlng_rrr>`)
   26.   └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test-checks.R:44'): Check formats and types ─────────────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(., across(everything(), function(x) {
      attr(x, "label") <- NULL
      x
  }))`: ℹ In argument: `across(...)`.
  ℹ In group 2: `var1 = "BASE"`.
  Caused by error in `across()`:
  ! Can't compute column `variable`.
  Caused by error in `dplyr_internal_error()`:
  Backtrace:
       ▆
    1. ├─metacore::check_inconsistent_types(metacore) at test-checks.R:44:3
    2. │ └─metacore:::basic_check(type, metacore)
    3. │   └─... %>% select(variable = var1, everything())
    4. ├─dplyr::select(., variable = var1, everything())
    5. ├─dplyr::summarise(...)
    6. ├─dplyr::group_by(...)
    7. ├─dplyr::mutate(...)
    8. ├─dplyr:::mutate.data.frame(...)
    9. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
   10. │   ├─base::withCallingHandlers(...)
   11. │   └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
   12. │     ├─base::withCallingHandlers(...)
   13. │     └─mask$eval_all_mutate(quo)
   14. │       └─dplyr (local) eval()
   15. ├─dplyr:::dplyr_internal_error(...)
   16. │ └─rlang::abort(class = c(class, "dplyr:::internal_error"), dplyr_error_data = data)
   17. │   └─rlang:::signal_abort(cnd, .file)
   18. │     └─base::signalCondition(cnd)
   19. ├─dplyr (local) `<fn>`(`<dpl:::__>`)
   20. │ └─rlang::abort(msg, call = call("across"), parent = cnd)
   21. │   └─rlang:::signal_abort(cnd, .file)
   22. │     └─base::signalCondition(cnd)
   23. └─dplyr (local) `<fn>`(`<rlng_rrr>`)
   24.   └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  
  [ FAIL 2 | WARN 1 | SKIP 0 | PASS 67 ]
  Error: Test failures
  Execution halted