Package: IncidencePrevalence Check: tests New result: ERROR Running ‘testthat.R’ [281s/166s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > library(testthat) > library(IncidencePrevalence) > > test_check("IncidencePrevalence") Starting 2 test processes [ FAIL 1 | WARN 0 | SKIP 72 | PASS 234 ] ══ Skipped tests (72) ══════════════════════════════════════════════════════════ • On CRAN (72): 'test-benchmarkIncidencePrevalence.R:2:3', 'test-benchmarkIncidencePrevalence.R:33:3', 'test-estimatePrevalence.R:153:3', 'test-estimatePrevalence.R:210:3', 'test-estimatePrevalence.R:316:3', 'test-estimatePrevalence.R:446:3', 'test-estimatePrevalence.R:523:3', 'test-estimatePrevalence.R:642:3', 'test-estimatePrevalence.R:688:3', 'test-estimatePrevalence.R:743:3', 'test-estimatePrevalence.R:792:3', 'test-estimatePrevalence.R:816:3', 'test-estimatePrevalence.R:841:3', 'test-estimatePrevalence.R:959:3', 'test-estimatePrevalence.R:991:3', 'test-estimatePrevalence.R:1024:3', 'test-estimatePrevalence.R:1101:3', 'test-estimatePrevalence.R:1158:3', 'test-estimatePrevalence.R:1223:3', 'test-estimatePrevalence.R:1293:3', 'test-estimateIncidence.R:164:3', 'test-estimateIncidence.R:259:3', 'test-estimateIncidence.R:330:3', 'test-estimateIncidence.R:417:3', 'test-estimateIncidence.R:509:3', 'test-estimateIncidence.R:591:3', 'test-estimateIncidence.R:745:3', 'test-estimateIncidence.R:850:3', 'test-estimateIncidence.R:995:3', 'test-estimateIncidence.R:1056:3', 'test-estimateIncidence.R:1111:3', 'test-estimateIncidence.R:1194:3', 'test-estimateIncidence.R:1294:3', 'test-estimateIncidence.R:1400:3', 'test-estimateIncidence.R:1477:3', 'test-estimateIncidence.R:1582:3', 'test-estimateIncidence.R:1688:3', 'test-estimateIncidence.R:1794:3', 'test-estimateIncidence.R:1850:3', 'test-estimateIncidence.R:2031:3', 'test-estimateIncidence.R:2279:3', 'test-estimateIncidence.R:2357:3', 'test-estimateIncidence.R:2743:3', 'test-estimateIncidence.R:2774:3', 'test-estimateIncidence.R:2821:3', 'test-estimateIncidence.R:2877:3', 'test-estimateIncidence.R:2936:3', 'test-estimateIncidence.R:2991:3', 'test-mockIncidencePrevalenceRef.R:38:3', 'test-mockIncidencePrevalenceRef.R:71:3', 'test-mockIncidencePrevalenceRef.R:99:3', 'test-mockIncidencePrevalenceRef.R:150:3', 'test-mockIncidencePrevalenceRef.R:248:3', 'test-generateDenominatorCohortSet.R:138:3', 'test-generateDenominatorCohortSet.R:185:3', 'test-generateDenominatorCohortSet.R:289:3', 'test-generateDenominatorCohortSet.R:325:3', 'test-generateDenominatorCohortSet.R:582:3', 'test-generateDenominatorCohortSet.R:629:3', 'test-generateDenominatorCohortSet.R:708:3', 'test-generateDenominatorCohortSet.R:800:3', 'test-generateDenominatorCohortSet.R:843:3', 'test-generateDenominatorCohortSet.R:895:3', 'test-generateDenominatorCohortSet.R:979:3', 'test-generateDenominatorCohortSet.R:1102:3', 'test-generateDenominatorCohortSet.R:1166:3', 'test-generateDenominatorCohortSet.R:1219:3', 'test-generateDenominatorCohortSet.R:1277:3', 'test-generateDenominatorCohortSet.R:1353:3', 'test-generateDenominatorCohortSet.R:1474:3', 'test-generateDenominatorCohortSet.R:1573:3', 'test-generateDenominatorCohortSet.R:1624:3' ══ Failed tests ════════════════════════════════════════════════════════════════ ── Failure ('test-generateDenominatorCohortSet.R:130:3'): mock db: checks on working example ── ... == "2012-03-15" is not TRUE `actual`: FALSE `expected`: TRUE [ FAIL 1 | WARN 0 | SKIP 72 | PASS 234 ] Error: Test failures Execution halted Package: PatientProfiles Check: tests New result: ERROR Running ‘spelling.R’ [0s/0s] Running ‘testthat.R’ [639s/319s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > # This file is part of the standard setup for testthat. > # It is recommended that you do not modify it. > # > # Where should you do additional test configuration? > # Learn more about the roles of various files in: > # * https://r-pkgs.org/tests.html > # * https://testthat.r-lib.org/reference/test_package.html#special-files > > library(testthat) > library(PatientProfiles) > > test_check("PatientProfiles") Starting 2 test processes [ FAIL 8 | WARN 38 | SKIP 1 | PASS 644 ] ══ Skipped tests (1) ═══════════════════════════════════════════════════════════ • empty test (1): 'test-summariseResult.R:209:1' ══ Failed tests ════════════════════════════════════════════════════════════════ ── Error ('test-addFutureObservation.R:126:3'): check working example with condition_occurrence ── Error in `dplyr::collect(removeClass(x, "cdm_table"))`: Failed to collect lazy table. Caused by error: ! rapi_prepare: Failed to prepare query SELECT cohort1.* FROM main.cohort1 WHERE NOT EXISTS ( SELECT 1 FROM ( SELECT cohort1.*, observation_period_start_date, observation_period_end_date FROM main.cohort1 LEFT JOIN main.observation_period ON (cohort1.subject_id = observation_period.person_id) ) RHS WHERE (cohort1.cohort_definition_id = RHS.cohort_definition_id) AND (cohort1.subject_id = RHS.subject_id) AND (cohort1.cohort_start_date = RHS.cohort_start_date) AND (cohort1.cohort_end_date = RHS.cohort_end_date) AND (RHS.cohort_start_date >= RHS.observation_period_start_date AND RHS.cohort_start_date <= RHS.observation_period_end_date AND RHS.cohort_end_date >= RHS.observation_period_start_date AND RHS.cohort_end_date <= RHS.observation_period_end_date) ) Error: Binder Error: Cannot compare values of type VARCHAR and type DATE - an explicit cast is required LINE 15: (RHS.cohort_start_date >= RHS.observation_period_start_date AND RHS.cohort_start_date <= RHS.observation_period_end_date AND RHS.cohort_end_date >= RHS.observation_period_start_date AND RHS.cohort_end_date <= RHS.observation_period_end_date) )... ^ Backtrace: ▆ 1. └─PatientProfiles::mockPatientProfiles(...) at test-addFutureObservation.R:126:3 2. └─omopgenerics::newCohortTable(cdm[[cohort]]) 3. └─omopgenerics:::validateGeneratedCohortSet(cohort, soft = .softValidation) 4. └─omopgenerics::checkCohortRequirements(...) 5. └─omopgenerics:::checkObservationPeriod(...) 6. ├─dplyr::collect(...) 7. └─omopgenerics:::collect.cohort_table(...) 8. ├─dplyr::collect(x) 9. └─omopgenerics:::collect.cdm_table(x) 10. ├─dplyr::collect(removeClass(x, "cdm_table")) 11. └─dbplyr:::collect.tbl_sql(removeClass(x, "cdm_table")) 12. └─base::tryCatch(...) 13. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 14. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 15. └─value[[3L]](cond) 16. └─cli::cli_abort("Failed to collect lazy table.", parent = cnd) 17. └─rlang::abort(...) ── Error ('test-addFutureObservation.R:198:3'): different name ───────────────── Error in `dplyr::collect(removeClass(x, "cdm_table"))`: Failed to collect lazy table. Caused by error: ! rapi_prepare: Failed to prepare query SELECT cohort1.* FROM main.cohort1 WHERE NOT EXISTS ( SELECT 1 FROM ( SELECT cohort1.*, observation_period_start_date, observation_period_end_date FROM main.cohort1 LEFT JOIN main.observation_period ON (cohort1.subject_id = observation_period.person_id) ) RHS WHERE (cohort1.cohort_definition_id = RHS.cohort_definition_id) AND (cohort1.subject_id = RHS.subject_id) AND (cohort1.cohort_start_date = RHS.cohort_start_date) AND (cohort1.cohort_end_date = RHS.cohort_end_date) AND (RHS.cohort_start_date >= RHS.observation_period_start_date AND RHS.cohort_start_date <= RHS.observation_period_end_date AND RHS.cohort_end_date >= RHS.observation_period_start_date AND RHS.cohort_end_date <= RHS.observation_period_end_date) ) Error: Binder Error: Cannot compare values of type VARCHAR and type DATE - an explicit cast is required LINE 15: (RHS.cohort_start_date >= RHS.observation_period_start_date AND RHS.cohort_start_date <= RHS.observation_period_end_date AND RHS.cohort_end_date >= RHS.observation_period_start_date AND RHS.cohort_end_date <= RHS.observation_period_end_date) )... ^ Backtrace: ▆ 1. └─PatientProfiles::mockPatientProfiles(...) at test-addFutureObservation.R:198:3 2. └─omopgenerics::newCohortTable(cdm[[cohort]]) 3. └─omopgenerics:::validateGeneratedCohortSet(cohort, soft = .softValidation) 4. └─omopgenerics::checkCohortRequirements(...) 5. └─omopgenerics:::checkObservationPeriod(...) 6. ├─dplyr::collect(...) 7. └─omopgenerics:::collect.cohort_table(...) 8. ├─dplyr::collect(x) 9. └─omopgenerics:::collect.cdm_table(x) 10. ├─dplyr::collect(removeClass(x, "cdm_table")) 11. └─dbplyr:::collect.tbl_sql(removeClass(x, "cdm_table")) 12. └─base::tryCatch(...) 13. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 14. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 15. └─value[[3L]](cond) 16. └─cli::cli_abort("Failed to collect lazy table.", parent = cnd) 17. └─rlang::abort(...) ── Error ('test-addFutureObservation.R:251:3'): priorHistory and future_observation - outside of observation period ── Error in `dplyr::collect(removeClass(x, "cdm_table"))`: Failed to collect lazy table. Caused by error: ! rapi_prepare: Failed to prepare query SELECT cohort1.* FROM main.cohort1 WHERE NOT EXISTS ( SELECT 1 FROM ( SELECT cohort1.*, observation_period_start_date, observation_period_end_date FROM main.cohort1 LEFT JOIN main.observation_period ON (cohort1.subject_id = observation_period.person_id) ) RHS WHERE (cohort1.cohort_definition_id = RHS.cohort_definition_id) AND (cohort1.subject_id = RHS.subject_id) AND (cohort1.cohort_start_date = RHS.cohort_start_date) AND (cohort1.cohort_end_date = RHS.cohort_end_date) AND (RHS.cohort_start_date >= RHS.observation_period_start_date AND RHS.cohort_start_date <= RHS.observation_period_end_date AND RHS.cohort_end_date >= RHS.observation_period_start_date AND RHS.cohort_end_date <= RHS.observation_period_end_date) ) Error: Binder Error: Cannot compare values of type VARCHAR and type DATE - an explicit cast is required LINE 15: (RHS.cohort_start_date >= RHS.observation_period_start_date AND RHS.cohort_start_date <= RHS.observation_period_end_date AND RHS.cohort_end_date >= RHS.observation_period_start_date AND RHS.cohort_end_date <= RHS.observation_period_end_date) )... ^ Backtrace: ▆ 1. └─PatientProfiles::mockPatientProfiles(...) at test-addFutureObservation.R:251:3 2. └─omopgenerics::newCohortTable(cdm[[cohort]]) 3. └─omopgenerics:::validateGeneratedCohortSet(cohort, soft = .softValidation) 4. └─omopgenerics::checkCohortRequirements(...) 5. └─omopgenerics:::checkObservationPeriod(...) 6. ├─dplyr::collect(...) 7. └─omopgenerics:::collect.cohort_table(...) 8. ├─dplyr::collect(x) 9. └─omopgenerics:::collect.cdm_table(x) 10. ├─dplyr::collect(removeClass(x, "cdm_table")) 11. └─dbplyr:::collect.tbl_sql(removeClass(x, "cdm_table")) 12. └─base::tryCatch(...) 13. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 14. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 15. └─value[[3L]](cond) 16. └─cli::cli_abort("Failed to collect lazy table.", parent = cnd) 17. └─rlang::abort(...) ── Error ('test-addFutureObservation.R:301:3'): multiple observation periods ─── Error in `dplyr::collect(removeClass(x, "cdm_table"))`: Failed to collect lazy table. Caused by error: ! rapi_prepare: Failed to prepare query SELECT cohort2.* FROM main.cohort2 WHERE NOT EXISTS ( SELECT 1 FROM ( SELECT cohort2.*, observation_period_start_date, observation_period_end_date FROM main.cohort2 LEFT JOIN main.observation_period ON (cohort2.subject_id = observation_period.person_id) ) RHS WHERE (cohort2.cohort_definition_id = RHS.cohort_definition_id) AND (cohort2.subject_id = RHS.subject_id) AND (cohort2.cohort_start_date = RHS.cohort_start_date) AND (cohort2.cohort_end_date = RHS.cohort_end_date) AND (RHS.cohort_start_date >= RHS.observation_period_start_date AND RHS.cohort_start_date <= RHS.observation_period_end_date AND RHS.cohort_end_date >= RHS.observation_period_start_date AND RHS.cohort_end_date <= RHS.observation_period_end_date) ) Error: Binder Error: Cannot compare values of type VARCHAR and type DATE - an explicit cast is required LINE 15: (RHS.cohort_start_date >= RHS.observation_period_start_date AND RHS.cohort_start_date <= RHS.observation_period_end_date AND RHS.cohort_end_date >= RHS.observation_period_start_date AND RHS.cohort_end_date <= RHS.observation_period_end_date) )... ^ Backtrace: ▆ 1. └─PatientProfiles::mockPatientProfiles(...) at test-addFutureObservation.R:301:3 2. └─omopgenerics::newCohortTable(cdm[[cohort]]) 3. └─omopgenerics:::validateGeneratedCohortSet(cohort, soft = .softValidation) 4. └─omopgenerics::checkCohortRequirements(...) 5. └─omopgenerics:::checkObservationPeriod(...) 6. ├─dplyr::collect(...) 7. └─omopgenerics:::collect.cohort_table(...) 8. ├─dplyr::collect(x) 9. └─omopgenerics:::collect.cdm_table(x) 10. ├─dplyr::collect(removeClass(x, "cdm_table")) 11. └─dbplyr:::collect.tbl_sql(removeClass(x, "cdm_table")) 12. └─base::tryCatch(...) 13. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 14. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 15. └─value[[3L]](cond) 16. └─cli::cli_abort("Failed to collect lazy table.", parent = cnd) 17. └─rlang::abort(...) ── Error ('test-addPriorObservation.R:106:3'): check working example with condition_occurrence ── Error in `dplyr::collect(removeClass(x, "cdm_table"))`: Failed to collect lazy table. Caused by error: ! rapi_prepare: Failed to prepare query SELECT cohort1.* FROM main.cohort1 WHERE NOT EXISTS ( SELECT 1 FROM ( SELECT cohort1.*, observation_period_start_date, observation_period_end_date FROM main.cohort1 LEFT JOIN main.observation_period ON (cohort1.subject_id = observation_period.person_id) ) RHS WHERE (cohort1.cohort_definition_id = RHS.cohort_definition_id) AND (cohort1.subject_id = RHS.subject_id) AND (cohort1.cohort_start_date = RHS.cohort_start_date) AND (cohort1.cohort_end_date = RHS.cohort_end_date) AND (RHS.cohort_start_date >= RHS.observation_period_start_date AND RHS.cohort_start_date <= RHS.observation_period_end_date AND RHS.cohort_end_date >= RHS.observation_period_start_date AND RHS.cohort_end_date <= RHS.observation_period_end_date) ) Error: Binder Error: Cannot compare values of type VARCHAR and type DATE - an explicit cast is required LINE 15: (RHS.cohort_start_date >= RHS.observation_period_start_date AND RHS.cohort_start_date <= RHS.observation_period_end_date AND RHS.cohort_end_date >= RHS.observation_period_start_date AND RHS.cohort_end_date <= RHS.observation_period_end_date) )... ^ Backtrace: ▆ 1. └─PatientProfiles::mockPatientProfiles(...) at test-addPriorObservation.R:106:3 2. └─omopgenerics::newCohortTable(cdm[[cohort]]) 3. └─omopgenerics:::validateGeneratedCohortSet(cohort, soft = .softValidation) 4. └─omopgenerics::checkCohortRequirements(...) 5. └─omopgenerics:::checkObservationPeriod(...) 6. ├─dplyr::collect(...) 7. └─omopgenerics:::collect.cohort_table(...) 8. ├─dplyr::collect(x) 9. └─omopgenerics:::collect.cdm_table(x) 10. ├─dplyr::collect(removeClass(x, "cdm_table")) 11. └─dbplyr:::collect.tbl_sql(removeClass(x, "cdm_table")) 12. └─base::tryCatch(...) 13. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 14. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 15. └─value[[3L]](cond) 16. └─cli::cli_abort("Failed to collect lazy table.", parent = cnd) 17. └─rlang::abort(...) ── Error ('test-addPriorObservation.R:158:3'): different name ────────────────── Error in `dplyr::collect(removeClass(x, "cdm_table"))`: Failed to collect lazy table. Caused by error: ! rapi_prepare: Failed to prepare query SELECT cohort1.* FROM main.cohort1 WHERE NOT EXISTS ( SELECT 1 FROM ( SELECT cohort1.*, observation_period_start_date, observation_period_end_date FROM main.cohort1 LEFT JOIN main.observation_period ON (cohort1.subject_id = observation_period.person_id) ) RHS WHERE (cohort1.cohort_definition_id = RHS.cohort_definition_id) AND (cohort1.subject_id = RHS.subject_id) AND (cohort1.cohort_start_date = RHS.cohort_start_date) AND (cohort1.cohort_end_date = RHS.cohort_end_date) AND (RHS.cohort_start_date >= RHS.observation_period_start_date AND RHS.cohort_start_date <= RHS.observation_period_end_date AND RHS.cohort_end_date >= RHS.observation_period_start_date AND RHS.cohort_end_date <= RHS.observation_period_end_date) ) Error: Binder Error: Cannot compare values of type VARCHAR and type DATE - an explicit cast is required LINE 15: (RHS.cohort_start_date >= RHS.observation_period_start_date AND RHS.cohort_start_date <= RHS.observation_period_end_date AND RHS.cohort_end_date >= RHS.observation_period_start_date AND RHS.cohort_end_date <= RHS.observation_period_end_date) )... ^ Backtrace: ▆ 1. └─PatientProfiles::mockPatientProfiles(...) at test-addPriorObservation.R:158:3 2. └─omopgenerics::newCohortTable(cdm[[cohort]]) 3. └─omopgenerics:::validateGeneratedCohortSet(cohort, soft = .softValidation) 4. └─omopgenerics::checkCohortRequirements(...) 5. └─omopgenerics:::checkObservationPeriod(...) 6. ├─dplyr::collect(...) 7. └─omopgenerics:::collect.cohort_table(...) 8. ├─dplyr::collect(x) 9. └─omopgenerics:::collect.cdm_table(x) 10. ├─dplyr::collect(removeClass(x, "cdm_table")) 11. └─dbplyr:::collect.tbl_sql(removeClass(x, "cdm_table")) 12. └─base::tryCatch(...) 13. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 14. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 15. └─value[[3L]](cond) 16. └─cli::cli_abort("Failed to collect lazy table.", parent = cnd) 17. └─rlang::abort(...) ── Error ('test-addPriorObservation.R:209:3'): multiple observation periods ──── Error in `dplyr::collect(removeClass(x, "cdm_table"))`: Failed to collect lazy table. Caused by error: ! rapi_prepare: Failed to prepare query SELECT cohort2.* FROM main.cohort2 WHERE NOT EXISTS ( SELECT 1 FROM ( SELECT cohort2.*, observation_period_start_date, observation_period_end_date FROM main.cohort2 LEFT JOIN main.observation_period ON (cohort2.subject_id = observation_period.person_id) ) RHS WHERE (cohort2.cohort_definition_id = RHS.cohort_definition_id) AND (cohort2.subject_id = RHS.subject_id) AND (cohort2.cohort_start_date = RHS.cohort_start_date) AND (cohort2.cohort_end_date = RHS.cohort_end_date) AND (RHS.cohort_start_date >= RHS.observation_period_start_date AND RHS.cohort_start_date <= RHS.observation_period_end_date AND RHS.cohort_end_date >= RHS.observation_period_start_date AND RHS.cohort_end_date <= RHS.observation_period_end_date) ) Error: Binder Error: Cannot compare values of type VARCHAR and type DATE - an explicit cast is required LINE 15: (RHS.cohort_start_date >= RHS.observation_period_start_date AND RHS.cohort_start_date <= RHS.observation_period_end_date AND RHS.cohort_end_date >= RHS.observation_period_start_date AND RHS.cohort_end_date <= RHS.observation_period_end_date) )... ^ Backtrace: ▆ 1. └─PatientProfiles::mockPatientProfiles(...) at test-addPriorObservation.R:209:3 2. └─omopgenerics::newCohortTable(cdm[[cohort]]) 3. └─omopgenerics:::validateGeneratedCohortSet(cohort, soft = .softValidation) 4. └─omopgenerics::checkCohortRequirements(...) 5. └─omopgenerics:::checkObservationPeriod(...) 6. ├─dplyr::collect(...) 7. └─omopgenerics:::collect.cohort_table(...) 8. ├─dplyr::collect(x) 9. └─omopgenerics:::collect.cdm_table(x) 10. ├─dplyr::collect(removeClass(x, "cdm_table")) 11. └─dbplyr:::collect.tbl_sql(removeClass(x, "cdm_table")) 12. └─base::tryCatch(...) 13. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 14. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 15. └─value[[3L]](cond) 16. └─cli::cli_abort("Failed to collect lazy table.", parent = cnd) 17. └─rlang::abort(...) ── Error ('test-summariseCharacteristics.R:51:3'): test summariseCharacteristics ── Error in `dplyr::collect(removeClass(x, "cdm_table"))`: Failed to collect lazy table. Caused by error: ! rapi_prepare: Failed to prepare query SELECT cohort1.* FROM main.cohort1 WHERE NOT EXISTS ( SELECT 1 FROM ( SELECT cohort1.*, observation_period_start_date, observation_period_end_date FROM main.cohort1 LEFT JOIN main.observation_period ON (cohort1.subject_id = observation_period.person_id) ) RHS WHERE (cohort1.cohort_definition_id = RHS.cohort_definition_id) AND (cohort1.subject_id = RHS.subject_id) AND (cohort1.cohort_start_date = RHS.cohort_start_date) AND (cohort1.cohort_end_date = RHS.cohort_end_date) AND (RHS.cohort_start_date >= RHS.observation_period_start_date AND RHS.cohort_start_date <= RHS.observation_period_end_date AND RHS.cohort_end_date >= RHS.observation_period_start_date AND RHS.cohort_end_date <= RHS.observation_period_end_date) ) Error: Binder Error: Cannot compare values of type VARCHAR and type DATE - an explicit cast is required LINE 15: (RHS.cohort_start_date >= RHS.observation_period_start_date AND RHS.cohort_start_date <= RHS.observation_period_end_date AND RHS.cohort_end_date >= RHS.observation_period_start_date AND RHS.cohort_end_date <= RHS.observation_period_end_date) )... ^ Backtrace: ▆ 1. └─PatientProfiles::mockPatientProfiles(...) at test-summariseCharacteristics.R:51:3 2. └─omopgenerics::newCohortTable(cdm[[cohort]]) 3. └─omopgenerics:::validateGeneratedCohortSet(cohort, soft = .softValidation) 4. └─omopgenerics::checkCohortRequirements(...) 5. └─omopgenerics:::checkObservationPeriod(...) 6. ├─dplyr::collect(...) 7. └─omopgenerics:::collect.cohort_table(...) 8. ├─dplyr::collect(x) 9. └─omopgenerics:::collect.cdm_table(x) 10. ├─dplyr::collect(removeClass(x, "cdm_table")) 11. └─dbplyr:::collect.tbl_sql(removeClass(x, "cdm_table")) 12. └─base::tryCatch(...) 13. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 14. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 15. └─value[[3L]](cond) 16. └─cli::cli_abort("Failed to collect lazy table.", parent = cnd) 17. └─rlang::abort(...) [ FAIL 8 | WARN 38 | SKIP 1 | PASS 644 ] Error: Test failures Execution halted Package: pointblank Check: tests New result: ERROR Running ‘testthat.R’ [32s/32s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > library(testthat) > library(pointblank) > library(dittodb) Loading required package: DBI > test_check("pointblank") [ FAIL 19 | WARN 0 | SKIP 0 | PASS 1540 ] ══ Failed tests ════════════════════════════════════════════════════════════════ ── Error ('test-has_columns.R:67:3'): the `has_columns()` function works with tidyselect ── Error: Caused by error in `has_columns()`: ℹ In argument: `all_of(has_one)`. Caused by error in `all_of()`: ! Can't subset elements that don't exist. ✖ Elements `y` and `z` don't exist. Backtrace: ▆ 1. ├─testthat::expect_false(small_table %>% has_columns(all_of(has_one))) at test-has_columns.R:67:3 2. │ └─testthat::quasi_label(enquo(object), label, arg = "object") 3. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 4. ├─small_table %>% has_columns(all_of(has_one)) 5. └─pointblank::has_columns(., all_of(has_one)) 6. └─base::lapply(column_quos, has_column) 7. └─pointblank (local) FUN(X[[i]], ...) 8. ├─base::tryCatch(...) 9. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers) 10. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 11. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler) 12. └─pointblank:::resolve_columns(...) 13. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out)) ── Error ('test-tidyselect_fails_safely.R:10:3'): tidyselect errors signaled at report, not during development of validation plan ── Error: Caused by error in `col_vals_not_null()`: ℹ In argument: `all_of("z")`. Caused by error in `all_of()`: ! Can't subset elements that don't exist. ✖ Element `z` doesn't exist. Backtrace: ▆ 1. ├─testthat::expect_s3_class(...) at test-tidyselect_fails_safely.R:10:3 2. │ └─testthat::quasi_label(enquo(object), arg = "object") 3. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 4. ├─agent %>% col_vals_not_null(all_of("z")) 5. └─pointblank::col_vals_not_null(., all_of("z")) 6. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions) 7. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out)) ── Error ('test-tidyselect_fails_safely.R:29:3'): fail state correctly registered in the report for tidyselect errors ── Error: Caused by error in `col_vals_not_null()`: ℹ In argument: `all_of("z")`. Caused by error in `all_of()`: ! Can't subset elements that don't exist. ✖ Element `z` doesn't exist. Backtrace: ▆ 1. ├─... %>% interrogate() at test-tidyselect_fails_safely.R:29:3 2. ├─pointblank::interrogate(.) 3. ├─pointblank::col_vals_gt(., vars(c), 1, na_pass = TRUE) 4. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions) 5. │ └─pointblank:::apply_preconditions_for_cols(x, preconditions) 6. │ └─pointblank:::is_ptblank_agent(x) 7. └─pointblank::col_vals_not_null(., all_of("z")) 8. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions) 9. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out)) ── Failure ('test-tidyselect_fails_safely.R:94:3'): tidyselect errors *are* immediate for assertion/expectation/test ── `small_table %>% col_vals_not_null(z)` threw an error with unexpected message. Expected match: "Can't subset columns that don't exist." Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist." Backtrace: ▆ 1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:94: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. ├─small_table %>% col_vals_not_null(z) 7. ├─pointblank::col_vals_not_null(., z) 8. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions) 9. │ ├─base::tryCatch(...) 10. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers) 11. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 12. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler) 13. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call) 14. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...) 15. │ └─tidyselect:::eval_select_impl(...) 16. │ ├─tidyselect:::with_subscript_errors(...) 17. │ │ └─base::withCallingHandlers(...) 18. │ └─tidyselect:::vars_select_eval(...) 19. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask) 20. │ └─tidyselect:::as_indices_sel_impl(...) 21. │ └─tidyselect:::as_indices_impl(...) 22. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg) 23. │ └─vctrs::vec_as_location(...) 24. └─vctrs (local) ``() 25. └─vctrs:::stop_subscript_oob(...) 26. └─vctrs:::stop_subscript(...) 27. └─rlang::abort(...) ── Failure ('test-tidyselect_fails_safely.R:95:3'): tidyselect errors *are* immediate for assertion/expectation/test ── `small_table %>% col_vals_not_null("z")` threw an error with unexpected message. Expected match: "Can't subset columns that don't exist." Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist." Backtrace: ▆ 1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:95: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. ├─small_table %>% col_vals_not_null("z") 7. ├─pointblank::col_vals_not_null(., "z") 8. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions) 9. │ ├─base::tryCatch(...) 10. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers) 11. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 12. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler) 13. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call) 14. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...) 15. │ └─tidyselect:::eval_select_impl(...) 16. │ ├─tidyselect:::with_subscript_errors(...) 17. │ │ └─base::withCallingHandlers(...) 18. │ └─tidyselect:::vars_select_eval(...) 19. │ └─tidyselect:::as_indices_sel_impl(...) 20. │ └─tidyselect:::as_indices_impl(...) 21. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg) 22. │ └─vctrs::vec_as_location(...) 23. └─vctrs (local) ``() 24. └─vctrs:::stop_subscript_oob(...) 25. └─vctrs:::stop_subscript(...) 26. └─rlang::abort(...) ── Failure ('test-tidyselect_fails_safely.R:96:3'): tidyselect errors *are* immediate for assertion/expectation/test ── `small_table %>% col_vals_not_null(all_of("z"))` threw an error with unexpected message. Expected match: "Can't subset columns that don't exist." Actual message: "\nCaused by error in `col_vals_not_null()`:\nℹ In argument: `all_of(\"z\")`.\nCaused by error in `all_of()`:\n! Can't subset elements that don't exist.\n✖ Element `z` doesn't exist." Backtrace: ▆ 1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:96: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. ├─small_table %>% col_vals_not_null(all_of("z")) 7. └─pointblank::col_vals_not_null(., all_of("z")) 8. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions) 9. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out)) ── Failure ('test-tidyselect_fails_safely.R:97:3'): tidyselect errors *are* immediate for assertion/expectation/test ── `small_table %>% col_vals_not_null(all_of(nonexistent_col))` threw an error with unexpected message. Expected match: "Can't subset columns that don't exist." Actual message: "\nCaused by error in `col_vals_not_null()`:\nℹ In argument: `all_of(nonexistent_col)`.\nCaused by error in `all_of()`:\n! Can't subset elements that don't exist.\n✖ Element `z` doesn't exist." Backtrace: ▆ 1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:97: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. ├─small_table %>% col_vals_not_null(all_of(nonexistent_col)) 7. └─pointblank::col_vals_not_null(., all_of(nonexistent_col)) 8. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions) 9. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out)) ── Failure ('test-tidyselect_fails_safely.R:100:3'): tidyselect errors *are* immediate for assertion/expectation/test ── `small_table %>% expect_col_vals_not_null(z)` threw an error with unexpected message. Expected match: "Can't subset columns that don't exist." Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist." Backtrace: ▆ 1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:100: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. ├─small_table %>% expect_col_vals_not_null(z) 7. ├─pointblank::expect_col_vals_not_null(., z) 8. │ └─... %>% .$validation_set 9. ├─pointblank::interrogate(.) 10. ├─pointblank::col_vals_not_null(...) 11. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions) 12. │ ├─base::tryCatch(...) 13. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers) 14. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 15. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler) 16. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call) 17. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...) 18. │ └─tidyselect:::eval_select_impl(...) 19. │ ├─tidyselect:::with_subscript_errors(...) 20. │ │ └─base::withCallingHandlers(...) 21. │ └─tidyselect:::vars_select_eval(...) 22. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask) 23. │ └─tidyselect:::as_indices_sel_impl(...) 24. │ └─tidyselect:::as_indices_impl(...) 25. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg) 26. │ └─vctrs::vec_as_location(...) 27. └─vctrs (local) ``() 28. └─vctrs:::stop_subscript_oob(...) 29. └─vctrs:::stop_subscript(...) 30. └─rlang::abort(...) ── Failure ('test-tidyselect_fails_safely.R:101:3'): tidyselect errors *are* immediate for assertion/expectation/test ── `small_table %>% expect_col_vals_not_null("z")` threw an error with unexpected message. Expected match: "Can't subset columns that don't exist." Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist." Backtrace: ▆ 1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:101: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. ├─small_table %>% expect_col_vals_not_null("z") 7. ├─pointblank::expect_col_vals_not_null(., "z") 8. │ └─... %>% .$validation_set 9. ├─pointblank::interrogate(.) 10. ├─pointblank::col_vals_not_null(...) 11. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions) 12. │ ├─base::tryCatch(...) 13. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers) 14. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 15. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler) 16. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call) 17. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...) 18. │ └─tidyselect:::eval_select_impl(...) 19. │ ├─tidyselect:::with_subscript_errors(...) 20. │ │ └─base::withCallingHandlers(...) 21. │ └─tidyselect:::vars_select_eval(...) 22. │ └─tidyselect:::as_indices_sel_impl(...) 23. │ └─tidyselect:::as_indices_impl(...) 24. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg) 25. │ └─vctrs::vec_as_location(...) 26. └─vctrs (local) ``() 27. └─vctrs:::stop_subscript_oob(...) 28. └─vctrs:::stop_subscript(...) 29. └─rlang::abort(...) ── Failure ('test-tidyselect_fails_safely.R:102:3'): tidyselect errors *are* immediate for assertion/expectation/test ── `small_table %>% expect_col_vals_not_null(all_of("z"))` threw an error with unexpected message. Expected match: "Can't subset columns that don't exist." Actual message: "\nCaused by error in `col_vals_not_null()`:\nℹ In argument: `all_of(\"z\")`.\nCaused by error in `all_of()`:\n! Can't subset elements that don't exist.\n✖ Element `z` doesn't exist." Backtrace: ▆ 1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:102: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. ├─small_table %>% expect_col_vals_not_null(all_of("z")) 7. ├─pointblank::expect_col_vals_not_null(., all_of("z")) 8. │ └─... %>% .$validation_set 9. ├─pointblank::interrogate(.) 10. └─pointblank::col_vals_not_null(...) 11. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions) 12. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out)) ── Failure ('test-tidyselect_fails_safely.R:103:3'): tidyselect errors *are* immediate for assertion/expectation/test ── `small_table %>% expect_col_vals_not_null(all_of(nonexistent_col))` threw an error with unexpected message. Expected match: "Can't subset columns that don't exist." Actual message: "\nCaused by error in `col_vals_not_null()`:\nℹ In argument: `all_of(nonexistent_col)`.\nCaused by error in `all_of()`:\n! Can't subset elements that don't exist.\n✖ Element `z` doesn't exist." Backtrace: ▆ 1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:103: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. ├─small_table %>% ... 7. ├─pointblank::expect_col_vals_not_null(., all_of(nonexistent_col)) 8. │ └─... %>% .$validation_set 9. ├─pointblank::interrogate(.) 10. └─pointblank::col_vals_not_null(...) 11. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions) 12. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out)) ── Failure ('test-tidyselect_fails_safely.R:106:3'): tidyselect errors *are* immediate for assertion/expectation/test ── `small_table %>% test_col_vals_not_null(z)` threw an error with unexpected message. Expected match: "Can't subset columns that don't exist." Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist." Backtrace: ▆ 1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:106: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. ├─small_table %>% test_col_vals_not_null(z) 7. ├─pointblank::test_col_vals_not_null(., z) 8. │ └─... %>% .$validation_set 9. ├─pointblank::interrogate(.) 10. ├─pointblank::col_vals_not_null(...) 11. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions) 12. │ ├─base::tryCatch(...) 13. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers) 14. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 15. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler) 16. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call) 17. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...) 18. │ └─tidyselect:::eval_select_impl(...) 19. │ ├─tidyselect:::with_subscript_errors(...) 20. │ │ └─base::withCallingHandlers(...) 21. │ └─tidyselect:::vars_select_eval(...) 22. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask) 23. │ └─tidyselect:::as_indices_sel_impl(...) 24. │ └─tidyselect:::as_indices_impl(...) 25. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg) 26. │ └─vctrs::vec_as_location(...) 27. └─vctrs (local) ``() 28. └─vctrs:::stop_subscript_oob(...) 29. └─vctrs:::stop_subscript(...) 30. └─rlang::abort(...) ── Failure ('test-tidyselect_fails_safely.R:107:3'): tidyselect errors *are* immediate for assertion/expectation/test ── `small_table %>% test_col_vals_not_null("z")` threw an error with unexpected message. Expected match: "Can't subset columns that don't exist." Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist." Backtrace: ▆ 1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:107: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. ├─small_table %>% test_col_vals_not_null("z") 7. ├─pointblank::test_col_vals_not_null(., "z") 8. │ └─... %>% .$validation_set 9. ├─pointblank::interrogate(.) 10. ├─pointblank::col_vals_not_null(...) 11. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions) 12. │ ├─base::tryCatch(...) 13. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers) 14. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 15. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler) 16. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call) 17. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...) 18. │ └─tidyselect:::eval_select_impl(...) 19. │ ├─tidyselect:::with_subscript_errors(...) 20. │ │ └─base::withCallingHandlers(...) 21. │ └─tidyselect:::vars_select_eval(...) 22. │ └─tidyselect:::as_indices_sel_impl(...) 23. │ └─tidyselect:::as_indices_impl(...) 24. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg) 25. │ └─vctrs::vec_as_location(...) 26. └─vctrs (local) ``() 27. └─vctrs:::stop_subscript_oob(...) 28. └─vctrs:::stop_subscript(...) 29. └─rlang::abort(...) ── Failure ('test-tidyselect_fails_safely.R:108:3'): tidyselect errors *are* immediate for assertion/expectation/test ── `small_table %>% test_col_vals_not_null(all_of("z"))` threw an error with unexpected message. Expected match: "Can't subset columns that don't exist." Actual message: "\nCaused by error in `col_vals_not_null()`:\nℹ In argument: `all_of(\"z\")`.\nCaused by error in `all_of()`:\n! Can't subset elements that don't exist.\n✖ Element `z` doesn't exist." Backtrace: ▆ 1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:108: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. ├─small_table %>% test_col_vals_not_null(all_of("z")) 7. ├─pointblank::test_col_vals_not_null(., all_of("z")) 8. │ └─... %>% .$validation_set 9. ├─pointblank::interrogate(.) 10. └─pointblank::col_vals_not_null(...) 11. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions) 12. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out)) ── Failure ('test-tidyselect_fails_safely.R:109:3'): tidyselect errors *are* immediate for assertion/expectation/test ── `small_table %>% test_col_vals_not_null(all_of(nonexistent_col))` threw an error with unexpected message. Expected match: "Can't subset columns that don't exist." Actual message: "\nCaused by error in `col_vals_not_null()`:\nℹ In argument: `all_of(nonexistent_col)`.\nCaused by error in `all_of()`:\n! Can't subset elements that don't exist.\n✖ Element `z` doesn't exist." Backtrace: ▆ 1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:109: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. ├─small_table %>% ... 7. ├─pointblank::test_col_vals_not_null(., all_of(nonexistent_col)) 8. │ └─... %>% .$validation_set 9. ├─pointblank::interrogate(.) 10. └─pointblank::col_vals_not_null(...) 11. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions) 12. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out)) ── Failure ('test-tidyselect_fails_safely.R:116:3'): tidyselect errors cannot be downgraded in assertion/expectation on table ── `{ ... }` threw an error with unexpected message. Expected match: "Can't subset columns that don't exist." Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist." Backtrace: ▆ 1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:116: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. ├─... %>% col_vals_not_null(b) at test-tidyselect_fails_safely.R:117:5 7. ├─pointblank::col_vals_not_null(., b) 8. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions) 9. │ └─pointblank:::apply_preconditions_for_cols(x, preconditions) 10. │ └─pointblank:::is_ptblank_agent(x) 11. ├─pointblank::col_vals_not_null(., z, actions = warn_on_fail()) 12. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions) 13. │ ├─base::tryCatch(...) 14. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers) 15. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 16. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler) 17. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call) 18. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...) 19. │ └─tidyselect:::eval_select_impl(...) 20. │ ├─tidyselect:::with_subscript_errors(...) 21. │ │ └─base::withCallingHandlers(...) 22. │ └─tidyselect:::vars_select_eval(...) 23. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask) 24. │ └─tidyselect:::as_indices_sel_impl(...) 25. │ └─tidyselect:::as_indices_impl(...) 26. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg) 27. │ └─vctrs::vec_as_location(...) 28. └─vctrs (local) ``() 29. └─vctrs:::stop_subscript_oob(...) 30. └─vctrs:::stop_subscript(...) 31. └─rlang::abort(...) ── Error ('test-tidyselect_fails_safely_batch.R:50:5'): `col_*()`s show expected column selection failure/success behavior ── Error: Caused by error in `col_vals_lt()`: ℹ In argument: `all_of(mixed_cols)`. Caused by error in `all_of()`: ! Can't subset elements that don't exist. ✖ Element `z` doesn't exist. Backtrace: ▆ 1. ├─agent %>% col_vals_lt({{ select_expr }}, value = 5) %>% ... at test-tidyselect_fails_safely_batch.R:61:5 2. ├─pointblank (local) check_behaviors(., expr_name) 3. │ ├─base::suppressMessages(interrogate(agent)) at test-tidyselect_fails_safely_batch.R:50:5 4. │ │ └─base::withCallingHandlers(...) 5. │ └─pointblank::interrogate(agent) 6. └─pointblank::col_vals_lt(...) 7. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions) 8. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out)) ── Error ('test-tidyselect_fails_safely_batch.R:110:5'): `rows_*()`s show expected column selection failure/success behavior ── Error: Caused by error in `rows_distinct()`: ℹ In argument: `all_of(mixed_cols)`. Caused by error in `all_of()`: ! Can't subset elements that don't exist. ✖ Element `z` doesn't exist. Backtrace: ▆ 1. ├─agent %>% rows_distinct({{ select_expr }}) %>% ... at test-tidyselect_fails_safely_batch.R:121:5 2. ├─pointblank (local) check_behaviors(., expr_name) 3. │ ├─base::suppressMessages(interrogate(agent)) at test-tidyselect_fails_safely_batch.R:110:5 4. │ │ └─base::withCallingHandlers(...) 5. │ └─pointblank::interrogate(agent) 6. └─pointblank::rows_distinct(...) 7. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions = NULL) 8. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out)) ── Error ('test-tidyselect_fails_safely_batch.R:146:5'): `col_exists()`s show expected column selection failure/success behavior ── Error: Caused by error in `col_exists()`: ℹ In argument: `all_of(mixed_cols)`. Caused by error in `all_of()`: ! Can't subset elements that don't exist. ✖ Element `z` doesn't exist. Backtrace: ▆ 1. ├─agent %>% col_exists({{ select_expr }}) %>% ... at test-tidyselect_fails_safely_batch.R:157:5 2. ├─pointblank (local) check_behaviors(., expr_name) 3. │ ├─base::suppressMessages(interrogate(agent)) at test-tidyselect_fails_safely_batch.R:146:5 4. │ │ └─base::withCallingHandlers(...) 5. │ └─pointblank::interrogate(agent) 6. └─pointblank::col_exists(...) 7. ├─base::tryCatch(...) 8. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers) 9. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler) 11. └─pointblank:::resolve_columns(...) 12. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out)) [ FAIL 19 | WARN 0 | SKIP 0 | PASS 1540 ] Error: Test failures Execution halted