Running 'testthat.R' [221s]
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
  }))`: i In argument: `across(...)`.
  i In group 3: `var1 = "CHG"`.
  Caused by error in `across()`:
  ! Can't compute column `variable`.
  Caused by error in `dplyr_internal_error()`:
  Backtrace:
       x
    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
  }))`: i In argument: `across(...)`.
  i In group 2: `var1 = "BASE"`.
  Caused by error in `across()`:
  ! Can't compute column `variable`.
  Caused by error in `dplyr_internal_error()`:
  Backtrace:
       x
    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