Package: tidyREDCap Check: tests New result: ERROR Running ‘testthat.R’ [2s/6s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > library(testthat) > library(tidyREDCap) > > test_check("tidyREDCap") Reading metadata about your project.... Reading variable labels for your variables.... Reading your data.... ℹ This may take a while if your dataset is large. [ FAIL 1 | WARN 8 | SKIP 0 | PASS 13 ] ══ Failed tests ════════════════════════════════════════════════════════════════ ── Error ('test-import_instruments.R:72:1'): (code run outside of `test_that()`) ── Error in `select(., -ends_with(".1"))`: Names must be unique. ✖ These names are duplicated: * "record_id" at locations 1 and 2. Backtrace: ▆ 1. ├─tidyREDCap::import_instruments(...) at test-import_instruments.R:72:1 2. │ └─redcap[, c(meta, curr_instr_idx)] %>% ... 3. ├─dplyr::select(., -ends_with(".1")) 4. └─dplyr:::select.data.frame(., -ends_with(".1")) 5. └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call) 6. └─tidyselect:::eval_select_impl(...) 7. ├─tidyselect:::with_subscript_errors(...) 8. │ └─base::withCallingHandlers(...) 9. └─tidyselect:::vars_select_eval(...) 10. └─tidyselect:::ensure_named(...) 11. └─vctrs::vec_as_names(names(pos), repair = "check_unique", call = call) 12. └─vctrs (local) ``() 13. └─vctrs:::validate_unique(names = names, arg = arg, call = call) 14. └─vctrs:::stop_names_must_be_unique(names, arg, call = call) 15. └─vctrs:::stop_names(...) 16. └─vctrs:::stop_vctrs(...) 17. └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call) [ FAIL 1 | WARN 8 | SKIP 0 | PASS 13 ] Error: Test failures Execution halted