Running ‘testthat.R’ [52s/54s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(IncidencePrevalence)
  > 
  > test_check("IncidencePrevalence")
  Starting 2 test processes
  [ FAIL 17 | WARN 0 | SKIP 76 | PASS 81 ]
  
  ══ Skipped tests (76) ══════════════════════════════════════════════════════════
  • On CRAN (76): 'test-benchmarkIncidencePrevalence.R:2:3',
    'test-benchmarkIncidencePrevalence.R:33:3',
    'test-estimatePrevalence.R:148:3', 'test-estimatePrevalence.R:205:3',
    'test-estimatePrevalence.R:305:3', 'test-estimatePrevalence.R:411:3',
    'test-estimatePrevalence.R:541:3', 'test-estimatePrevalence.R:618:3',
    'test-estimatePrevalence.R:739:3', 'test-estimatePrevalence.R:785:3',
    'test-estimatePrevalence.R:840:3', 'test-estimatePrevalence.R:872:3',
    'test-estimatePrevalence.R:930:3', 'test-estimatePrevalence.R:954:3',
    'test-estimatePrevalence.R:979:3', 'test-estimatePrevalence.R:1111:3',
    'test-estimatePrevalence.R:1141:3', 'test-estimatePrevalence.R:1174:3',
    'test-estimatePrevalence.R:1235:3', 'test-estimatePrevalence.R:1312:3',
    'test-estimatePrevalence.R:1382:3', 'test-estimateIncidence.R:158:3',
    'test-estimateIncidence.R:253:3', 'test-estimateIncidence.R:324:3',
    'test-estimateIncidence.R:411:3', 'test-estimateIncidence.R:503:3',
    'test-estimateIncidence.R:585:3', 'test-estimateIncidence.R:737:3',
    'test-estimateIncidence.R:842:3', 'test-estimateIncidence.R:987:3',
    'test-estimateIncidence.R:1048:3', 'test-estimateIncidence.R:1102:3',
    'test-estimateIncidence.R:1291:3', 'test-estimateIncidence.R:1391:3',
    'test-estimateIncidence.R:1497:3', 'test-estimateIncidence.R:1574:3',
    'test-estimateIncidence.R:1678:3', 'test-estimateIncidence.R:1784:3',
    'test-estimateIncidence.R:1890:3', 'test-estimateIncidence.R:1946:3',
    'test-estimateIncidence.R:2127:3', 'test-estimateIncidence.R:2385:3',
    'test-estimateIncidence.R:2427:3', 'test-estimateIncidence.R:2514:3',
    'test-estimateIncidence.R:2908:3', 'test-estimateIncidence.R:2939:3',
    'test-estimateIncidence.R:2970:3', 'test-estimateIncidence.R:3026:3',
    'test-estimateIncidence.R:3087:3', 'test-estimateIncidence.R:3151:3',
    'test-mockIncidencePrevalenceRef.R:39:3',
    'test-mockIncidencePrevalenceRef.R:71:3',
    'test-mockIncidencePrevalenceRef.R:95:3',
    'test-mockIncidencePrevalenceRef.R:140:3',
    'test-mockIncidencePrevalenceRef.R:227:3',
    'test-generateDenominatorCohortSet.R:151:3',
    'test-generateDenominatorCohortSet.R:198:3',
    'test-generateDenominatorCohortSet.R:302:3',
    'test-generateDenominatorCohortSet.R:343:3',
    'test-generateDenominatorCohortSet.R:614:3',
    'test-generateDenominatorCohortSet.R:663:3',
    'test-generateDenominatorCohortSet.R:741:3',
    'test-generateDenominatorCohortSet.R:834:3',
    'test-generateDenominatorCohortSet.R:877:3',
    'test-generateDenominatorCohortSet.R:929:3',
    'test-generateDenominatorCohortSet.R:1023:3',
    'test-generateDenominatorCohortSet.R:1146:3',
    'test-generateDenominatorCohortSet.R:1210:3',
    'test-generateDenominatorCohortSet.R:1263:3',
    'test-generateDenominatorCohortSet.R:1321:3',
    'test-generateDenominatorCohortSet.R:1397:3',
    'test-generateDenominatorCohortSet.R:1519:3',
    'test-generateDenominatorCohortSet.R:1600:3',
    'test-generateDenominatorCohortSet.R:1644:3',
    'test-generateDenominatorCohortSet.R:1706:3',
    'test-generateDenominatorCohortSet.R:1722:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-bindEstimates.R:14:3'): check with mock db ─────────────────────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `as.character(cohort_ref[[2]]$x)`: Can't convert `x` <dbplyr_table_ident> to <character>.
  Backtrace:
       ▆
    1. ├─IncidencePrevalence::mockIncidencePrevalenceRef(sampleSize = 100) at test-bindEstimates.R:14:2
    2. │ └─CDMConnector::cdm_from_con(...)
    3. │   └─CDMConnector::new_generated_cohort_set(...)
    4. │     ├─... %>% stringr::str_remove_all("[^A-Za-z0-9_]")
    5. │     ├─base::rev(...)
    6. │     ├─stringr::str_split(as.character(cohort_ref[[2]]$x), "\\.")
    7. │     │ └─stringr:::check_lengths(string, pattern)
    8. │     │   └─vctrs::vec_size_common(...)
    9. │     ├─base::as.character(cohort_ref[[2]]$x)
   10. │     └─vctrs:::as.character.vctrs_vctr(cohort_ref[[2]]$x)
   11. │       └─vctrs::vec_cast(x, character())
   12. ├─stringr::str_remove_all(., "[^A-Za-z0-9_]")
   13. │ └─stringr::str_replace_all(string, pattern, "")
   14. │   └─stringr:::check_lengths(string, pattern, replacement)
   15. │     └─vctrs::vec_size_common(...)
   16. └─vctrs (local) `<fn>`()
   17.   └─vctrs::vec_default_cast(...)
   18.     ├─base::withRestarts(...)
   19.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   20.     │   └─base (local) doWithOneRestart(return(expr), restart)
   21.     └─vctrs::stop_incompatible_cast(...)
   22.       └─vctrs::stop_incompatible_type(...)
   23.         └─vctrs:::stop_incompatible(...)
   24.           └─vctrs:::stop_vctrs(...)
   25.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
  ── Error ('test-estimatePrevalence.R:3:3'): mock db: check output format ───────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `as.character(cohort_ref[[2]]$x)`: Can't convert `x` <dbplyr_table_ident> to <character>.
  Backtrace:
       ▆
    1. ├─mockIncidencePrevalenceRef() %>% ... at test-estimatePrevalence.R:3:2
    2. ├─IncidencePrevalence::generateDenominatorCohortSet(., name = "denominator")
    3. │ └─IncidencePrevalence:::checkInputGenerateDCS(...)
    4. │   └─IncidencePrevalence:::cdmCheck(cdm)
    5. ├─IncidencePrevalence::mockIncidencePrevalenceRef()
    6. │ └─CDMConnector::cdm_from_con(...)
    7. │   └─CDMConnector::new_generated_cohort_set(...)
    8. │     ├─... %>% stringr::str_remove_all("[^A-Za-z0-9_]")
    9. │     ├─base::rev(...)
   10. │     ├─stringr::str_split(as.character(cohort_ref[[2]]$x), "\\.")
   11. │     │ └─stringr:::check_lengths(string, pattern)
   12. │     │   └─vctrs::vec_size_common(...)
   13. │     ├─base::as.character(cohort_ref[[2]]$x)
   14. │     └─vctrs:::as.character.vctrs_vctr(cohort_ref[[2]]$x)
   15. │       └─vctrs::vec_cast(x, character())
   16. ├─stringr::str_remove_all(., "[^A-Za-z0-9_]")
   17. │ └─stringr::str_replace_all(string, pattern, "")
   18. │   └─stringr:::check_lengths(string, pattern, replacement)
   19. │     └─vctrs::vec_size_common(...)
   20. └─vctrs (local) `<fn>`()
   21.   └─vctrs::vec_default_cast(...)
   22.     ├─base::withRestarts(...)
   23.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   24.     │   └─base (local) doWithOneRestart(return(expr), restart)
   25.     └─vctrs::stop_incompatible_cast(...)
   26.       └─vctrs::stop_incompatible_type(...)
   27.         └─vctrs:::stop_incompatible(...)
   28.           └─vctrs:::stop_vctrs(...)
   29.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
  ── Error ('test-estimatePrevalence.R:127:3'): mock db: checks on working example ──
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `as.character(cohort_ref[[2]]$x)`: Can't convert `x` <dbplyr_table_ident> to <character>.
  Backtrace:
       ▆
    1. ├─IncidencePrevalence::mockIncidencePrevalenceRef(...) at test-estimatePrevalence.R:127:2
    2. │ └─CDMConnector::cdm_from_con(...)
    3. │   └─CDMConnector::new_generated_cohort_set(...)
    4. │     ├─... %>% stringr::str_remove_all("[^A-Za-z0-9_]")
    5. │     ├─base::rev(...)
    6. │     ├─stringr::str_split(as.character(cohort_ref[[2]]$x), "\\.")
    7. │     │ └─stringr:::check_lengths(string, pattern)
    8. │     │   └─vctrs::vec_size_common(...)
    9. │     ├─base::as.character(cohort_ref[[2]]$x)
   10. │     └─vctrs:::as.character.vctrs_vctr(cohort_ref[[2]]$x)
   11. │       └─vctrs::vec_cast(x, character())
   12. ├─stringr::str_remove_all(., "[^A-Za-z0-9_]")
   13. │ └─stringr::str_replace_all(string, pattern, "")
   14. │   └─stringr:::check_lengths(string, pattern, replacement)
   15. │     └─vctrs::vec_size_common(...)
   16. └─vctrs (local) `<fn>`()
   17.   └─vctrs::vec_default_cast(...)
   18.     ├─base::withRestarts(...)
   19.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   20.     │   └─base (local) doWithOneRestart(return(expr), restart)
   21.     └─vctrs::stop_incompatible_cast(...)
   22.       └─vctrs::stop_incompatible_type(...)
   23.         └─vctrs:::stop_incompatible(...)
   24.           └─vctrs:::stop_vctrs(...)
   25.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
  ── Error ('test-estimatePrevalence.R:1431:3'): mock db: if missing cohort attributes ──
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `as.character(cohort_ref[[2]]$x)`: Can't convert `x` <dbplyr_table_ident> to <character>.
  Backtrace:
       ▆
    1. ├─IncidencePrevalence::mockIncidencePrevalenceRef() at test-estimatePrevalence.R:1431:2
    2. │ └─CDMConnector::cdm_from_con(...)
    3. │   └─CDMConnector::new_generated_cohort_set(...)
    4. │     ├─... %>% stringr::str_remove_all("[^A-Za-z0-9_]")
    5. │     ├─base::rev(...)
    6. │     ├─stringr::str_split(as.character(cohort_ref[[2]]$x), "\\.")
    7. │     │ └─stringr:::check_lengths(string, pattern)
    8. │     │   └─vctrs::vec_size_common(...)
    9. │     ├─base::as.character(cohort_ref[[2]]$x)
   10. │     └─vctrs:::as.character.vctrs_vctr(cohort_ref[[2]]$x)
   11. │       └─vctrs::vec_cast(x, character())
   12. ├─stringr::str_remove_all(., "[^A-Za-z0-9_]")
   13. │ └─stringr::str_replace_all(string, pattern, "")
   14. │   └─stringr:::check_lengths(string, pattern, replacement)
   15. │     └─vctrs::vec_size_common(...)
   16. └─vctrs (local) `<fn>`()
   17.   └─vctrs::vec_default_cast(...)
   18.     ├─base::withRestarts(...)
   19.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   20.     │   └─base (local) doWithOneRestart(return(expr), restart)
   21.     └─vctrs::stop_incompatible_cast(...)
   22.       └─vctrs::stop_incompatible_type(...)
   23.         └─vctrs:::stop_incompatible(...)
   24.           └─vctrs:::stop_vctrs(...)
   25.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
  ── Error ('test-exportIncidencePrevalenceResults.R:2:3'): writing results ──────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `as.character(cohort_ref[[2]]$x)`: Can't convert `x` <dbplyr_table_ident> to <character>.
  Backtrace:
       ▆
    1. ├─IncidencePrevalence::mockIncidencePrevalenceRef() at test-exportIncidencePrevalenceResults.R:2:2
    2. │ └─CDMConnector::cdm_from_con(...)
    3. │   └─CDMConnector::new_generated_cohort_set(...)
    4. │     ├─... %>% stringr::str_remove_all("[^A-Za-z0-9_]")
    5. │     ├─base::rev(...)
    6. │     ├─stringr::str_split(as.character(cohort_ref[[2]]$x), "\\.")
    7. │     │ └─stringr:::check_lengths(string, pattern)
    8. │     │   └─vctrs::vec_size_common(...)
    9. │     ├─base::as.character(cohort_ref[[2]]$x)
   10. │     └─vctrs:::as.character.vctrs_vctr(cohort_ref[[2]]$x)
   11. │       └─vctrs::vec_cast(x, character())
   12. ├─stringr::str_remove_all(., "[^A-Za-z0-9_]")
   13. │ └─stringr::str_replace_all(string, pattern, "")
   14. │   └─stringr:::check_lengths(string, pattern, replacement)
   15. │     └─vctrs::vec_size_common(...)
   16. └─vctrs (local) `<fn>`()
   17.   └─vctrs::vec_default_cast(...)
   18.     ├─base::withRestarts(...)
   19.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   20.     │   └─base (local) doWithOneRestart(return(expr), restart)
   21.     └─vctrs::stop_incompatible_cast(...)
   22.       └─vctrs::stop_incompatible_type(...)
   23.         └─vctrs:::stop_incompatible(...)
   24.           └─vctrs:::stop_vctrs(...)
   25.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
  ── Error ('test-exportIncidencePrevalenceResults.R:25:3'): writing results- expected errors ──
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `as.character(cohort_ref[[2]]$x)`: Can't convert `x` <dbplyr_table_ident> to <character>.
  Backtrace:
       ▆
    1. ├─IncidencePrevalence::mockIncidencePrevalenceRef() at test-exportIncidencePrevalenceResults.R:25:2
    2. │ └─CDMConnector::cdm_from_con(...)
    3. │   └─CDMConnector::new_generated_cohort_set(...)
    4. │     ├─... %>% stringr::str_remove_all("[^A-Za-z0-9_]")
    5. │     ├─base::rev(...)
    6. │     ├─stringr::str_split(as.character(cohort_ref[[2]]$x), "\\.")
    7. │     │ └─stringr:::check_lengths(string, pattern)
    8. │     │   └─vctrs::vec_size_common(...)
    9. │     ├─base::as.character(cohort_ref[[2]]$x)
   10. │     └─vctrs:::as.character.vctrs_vctr(cohort_ref[[2]]$x)
   11. │       └─vctrs::vec_cast(x, character())
   12. ├─stringr::str_remove_all(., "[^A-Za-z0-9_]")
   13. │ └─stringr::str_replace_all(string, pattern, "")
   14. │   └─stringr:::check_lengths(string, pattern, replacement)
   15. │     └─vctrs::vec_size_common(...)
   16. └─vctrs (local) `<fn>`()
   17.   └─vctrs::vec_default_cast(...)
   18.     ├─base::withRestarts(...)
   19.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   20.     │   └─base (local) doWithOneRestart(return(expr), restart)
   21.     └─vctrs::stop_incompatible_cast(...)
   22.       └─vctrs::stop_incompatible_type(...)
   23.         └─vctrs:::stop_incompatible(...)
   24.           └─vctrs:::stop_vctrs(...)
   25.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
  ── Error ('test-estimateIncidence.R:3:3'): mock db: check output format ────────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `as.character(cohort_ref[[2]]$x)`: Can't convert `x` <dbplyr_table_ident> to <character>.
  Backtrace:
       ▆
    1. ├─IncidencePrevalence::mockIncidencePrevalenceRef() at test-estimateIncidence.R:3:2
    2. │ └─CDMConnector::cdm_from_con(...)
    3. │   └─CDMConnector::new_generated_cohort_set(...)
    4. │     ├─... %>% stringr::str_remove_all("[^A-Za-z0-9_]")
    5. │     ├─base::rev(...)
    6. │     ├─stringr::str_split(as.character(cohort_ref[[2]]$x), "\\.")
    7. │     │ └─stringr:::check_lengths(string, pattern)
    8. │     │   └─vctrs::vec_size_common(...)
    9. │     ├─base::as.character(cohort_ref[[2]]$x)
   10. │     └─vctrs:::as.character.vctrs_vctr(cohort_ref[[2]]$x)
   11. │       └─vctrs::vec_cast(x, character())
   12. ├─stringr::str_remove_all(., "[^A-Za-z0-9_]")
   13. │ └─stringr::str_replace_all(string, pattern, "")
   14. │   └─stringr:::check_lengths(string, pattern, replacement)
   15. │     └─vctrs::vec_size_common(...)
   16. └─vctrs (local) `<fn>`()
   17.   └─vctrs::vec_default_cast(...)
   18.     ├─base::withRestarts(...)
   19.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   20.     │   └─base (local) doWithOneRestart(return(expr), restart)
   21.     └─vctrs::stop_incompatible_cast(...)
   22.       └─vctrs::stop_incompatible_type(...)
   23.         └─vctrs:::stop_incompatible(...)
   24.           └─vctrs:::stop_vctrs(...)
   25.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
  ── Error ('test-estimateIncidence.R:123:3'): mock db: checks on working example ──
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `as.character(cohort_ref[[2]]$x)`: Can't convert `x` <dbplyr_table_ident> to <character>.
  Backtrace:
       ▆
    1. ├─IncidencePrevalence::mockIncidencePrevalenceRef(...) at test-estimateIncidence.R:123:2
    2. │ └─CDMConnector::cdm_from_con(...)
    3. │   └─CDMConnector::new_generated_cohort_set(...)
    4. │     ├─... %>% stringr::str_remove_all("[^A-Za-z0-9_]")
    5. │     ├─base::rev(...)
    6. │     ├─stringr::str_split(as.character(cohort_ref[[2]]$x), "\\.")
    7. │     │ └─stringr:::check_lengths(string, pattern)
    8. │     │   └─vctrs::vec_size_common(...)
    9. │     ├─base::as.character(cohort_ref[[2]]$x)
   10. │     └─vctrs:::as.character.vctrs_vctr(cohort_ref[[2]]$x)
   11. │       └─vctrs::vec_cast(x, character())
   12. ├─stringr::str_remove_all(., "[^A-Za-z0-9_]")
   13. │ └─stringr::str_replace_all(string, pattern, "")
   14. │   └─stringr:::check_lengths(string, pattern, replacement)
   15. │     └─vctrs::vec_size_common(...)
   16. └─vctrs (local) `<fn>`()
   17.   └─vctrs::vec_default_cast(...)
   18.     ├─base::withRestarts(...)
   19.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   20.     │   └─base (local) doWithOneRestart(return(expr), restart)
   21.     └─vctrs::stop_incompatible_cast(...)
   22.       └─vctrs::stop_incompatible_type(...)
   23.         └─vctrs:::stop_incompatible(...)
   24.           └─vctrs:::stop_vctrs(...)
   25.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
  ── Error ('test-estimateIncidence.R:3200:3'): mock db: if missing cohort attributes ──
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `as.character(cohort_ref[[2]]$x)`: Can't convert `x` <dbplyr_table_ident> to <character>.
  Backtrace:
       ▆
    1. ├─IncidencePrevalence::mockIncidencePrevalenceRef() at test-estimateIncidence.R:3200:2
    2. │ └─CDMConnector::cdm_from_con(...)
    3. │   └─CDMConnector::new_generated_cohort_set(...)
    4. │     ├─... %>% stringr::str_remove_all("[^A-Za-z0-9_]")
    5. │     ├─base::rev(...)
    6. │     ├─stringr::str_split(as.character(cohort_ref[[2]]$x), "\\.")
    7. │     │ └─stringr:::check_lengths(string, pattern)
    8. │     │   └─vctrs::vec_size_common(...)
    9. │     ├─base::as.character(cohort_ref[[2]]$x)
   10. │     └─vctrs:::as.character.vctrs_vctr(cohort_ref[[2]]$x)
   11. │       └─vctrs::vec_cast(x, character())
   12. ├─stringr::str_remove_all(., "[^A-Za-z0-9_]")
   13. │ └─stringr::str_replace_all(string, pattern, "")
   14. │   └─stringr:::check_lengths(string, pattern, replacement)
   15. │     └─vctrs::vec_size_common(...)
   16. └─vctrs (local) `<fn>`()
   17.   └─vctrs::vec_default_cast(...)
   18.     ├─base::withRestarts(...)
   19.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   20.     │   └─base (local) doWithOneRestart(return(expr), restart)
   21.     └─vctrs::stop_incompatible_cast(...)
   22.       └─vctrs::stop_incompatible_type(...)
   23.         └─vctrs:::stop_incompatible(...)
   24.           └─vctrs:::stop_vctrs(...)
   25.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
  ── Error ('test-estimateIncidence.R:3226:3'): mock db: empty outcome cohort ────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `as.character(cohort_ref[[2]]$x)`: Can't convert `x` <dbplyr_table_ident> to <character>.
  Backtrace:
       ▆
    1. ├─IncidencePrevalence::mockIncidencePrevalenceRef(...) at test-estimateIncidence.R:3226:2
    2. │ └─CDMConnector::cdm_from_con(...)
    3. │   └─CDMConnector::new_generated_cohort_set(...)
    4. │     ├─... %>% stringr::str_remove_all("[^A-Za-z0-9_]")
    5. │     ├─base::rev(...)
    6. │     ├─stringr::str_split(as.character(cohort_ref[[2]]$x), "\\.")
    7. │     │ └─stringr:::check_lengths(string, pattern)
    8. │     │   └─vctrs::vec_size_common(...)
    9. │     ├─base::as.character(cohort_ref[[2]]$x)
   10. │     └─vctrs:::as.character.vctrs_vctr(cohort_ref[[2]]$x)
   11. │       └─vctrs::vec_cast(x, character())
   12. ├─stringr::str_remove_all(., "[^A-Za-z0-9_]")
   13. │ └─stringr::str_replace_all(string, pattern, "")
   14. │   └─stringr:::check_lengths(string, pattern, replacement)
   15. │     └─vctrs::vec_size_common(...)
   16. └─vctrs (local) `<fn>`()
   17.   └─vctrs::vec_default_cast(...)
   18.     ├─base::withRestarts(...)
   19.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   20.     │   └─base (local) doWithOneRestart(return(expr), restart)
   21.     └─vctrs::stop_incompatible_cast(...)
   22.       └─vctrs::stop_incompatible_type(...)
   23.         └─vctrs:::stop_incompatible(...)
   24.           └─vctrs:::stop_vctrs(...)
   25.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
  ── Error ('test-mockIncidencePrevalenceRef.R:2:3'): check working example with defaults ──
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `as.character(cohort_ref[[2]]$x)`: Can't convert `x` <dbplyr_table_ident> to <character>.
  Backtrace:
       ▆
    1. ├─IncidencePrevalence::mockIncidencePrevalenceRef() at test-mockIncidencePrevalenceRef.R:2:2
    2. │ └─CDMConnector::cdm_from_con(...)
    3. │   └─CDMConnector::new_generated_cohort_set(...)
    4. │     ├─... %>% stringr::str_remove_all("[^A-Za-z0-9_]")
    5. │     ├─base::rev(...)
    6. │     ├─stringr::str_split(as.character(cohort_ref[[2]]$x), "\\.")
    7. │     │ └─stringr:::check_lengths(string, pattern)
    8. │     │   └─vctrs::vec_size_common(...)
    9. │     ├─base::as.character(cohort_ref[[2]]$x)
   10. │     └─vctrs:::as.character.vctrs_vctr(cohort_ref[[2]]$x)
   11. │       └─vctrs::vec_cast(x, character())
   12. ├─stringr::str_remove_all(., "[^A-Za-z0-9_]")
   13. │ └─stringr::str_replace_all(string, pattern, "")
   14. │   └─stringr:::check_lengths(string, pattern, replacement)
   15. │     └─vctrs::vec_size_common(...)
   16. └─vctrs (local) `<fn>`()
   17.   └─vctrs::vec_default_cast(...)
   18.     ├─base::withRestarts(...)
   19.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   20.     │   └─base (local) doWithOneRestart(return(expr), restart)
   21.     └─vctrs::stop_incompatible_cast(...)
   22.       └─vctrs::stop_incompatible_type(...)
   23.         └─vctrs:::stop_incompatible(...)
   24.           └─vctrs:::stop_vctrs(...)
   25.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
  ── Error ('test-generateDenominatorCohortSet.R:3:3'): mock db: check output format ──
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `as.character(cohort_ref[[2]]$x)`: Can't convert `x` <dbplyr_table_ident> to <character>.
  Backtrace:
       ▆
    1. ├─IncidencePrevalence::mockIncidencePrevalenceRef() at test-generateDenominatorCohortSet.R:3:2
    2. │ └─CDMConnector::cdm_from_con(...)
    3. │   └─CDMConnector::new_generated_cohort_set(...)
    4. │     ├─... %>% stringr::str_remove_all("[^A-Za-z0-9_]")
    5. │     ├─base::rev(...)
    6. │     ├─stringr::str_split(as.character(cohort_ref[[2]]$x), "\\.")
    7. │     │ └─stringr:::check_lengths(string, pattern)
    8. │     │   └─vctrs::vec_size_common(...)
    9. │     ├─base::as.character(cohort_ref[[2]]$x)
   10. │     └─vctrs:::as.character.vctrs_vctr(cohort_ref[[2]]$x)
   11. │       └─vctrs::vec_cast(x, character())
   12. ├─stringr::str_remove_all(., "[^A-Za-z0-9_]")
   13. │ └─stringr::str_replace_all(string, pattern, "")
   14. │   └─stringr:::check_lengths(string, pattern, replacement)
   15. │     └─vctrs::vec_size_common(...)
   16. └─vctrs (local) `<fn>`()
   17.   └─vctrs::vec_default_cast(...)
   18.     ├─base::withRestarts(...)
   19.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   20.     │   └─base (local) doWithOneRestart(return(expr), restart)
   21.     └─vctrs::stop_incompatible_cast(...)
   22.       └─vctrs::stop_incompatible_type(...)
   23.         └─vctrs:::stop_incompatible(...)
   24.           └─vctrs:::stop_vctrs(...)
   25.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
  ── Error ('test-generateDenominatorCohortSet.R:74:3'): mock db: checks on working example ──
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `as.character(cohort_ref[[2]]$x)`: Can't convert `x` <dbplyr_table_ident> to <character>.
  Backtrace:
       ▆
    1. ├─IncidencePrevalence::mockIncidencePrevalenceRef(...) at test-generateDenominatorCohortSet.R:74:2
    2. │ └─CDMConnector::cdm_from_con(...)
    3. │   └─CDMConnector::new_generated_cohort_set(...)
    4. │     ├─... %>% stringr::str_remove_all("[^A-Za-z0-9_]")
    5. │     ├─base::rev(...)
    6. │     ├─stringr::str_split(as.character(cohort_ref[[2]]$x), "\\.")
    7. │     │ └─stringr:::check_lengths(string, pattern)
    8. │     │   └─vctrs::vec_size_common(...)
    9. │     ├─base::as.character(cohort_ref[[2]]$x)
   10. │     └─vctrs:::as.character.vctrs_vctr(cohort_ref[[2]]$x)
   11. │       └─vctrs::vec_cast(x, character())
   12. ├─stringr::str_remove_all(., "[^A-Za-z0-9_]")
   13. │ └─stringr::str_replace_all(string, pattern, "")
   14. │   └─stringr:::check_lengths(string, pattern, replacement)
   15. │     └─vctrs::vec_size_common(...)
   16. └─vctrs (local) `<fn>`()
   17.   └─vctrs::vec_default_cast(...)
   18.     ├─base::withRestarts(...)
   19.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   20.     │   └─base (local) doWithOneRestart(return(expr), restart)
   21.     └─vctrs::stop_incompatible_cast(...)
   22.       └─vctrs::stop_incompatible_type(...)
   23.         └─vctrs:::stop_incompatible(...)
   24.           └─vctrs:::stop_vctrs(...)
   25.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
  ── Error ('test-plotting.R:2:3'): basic incidence plot ─────────────────────────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `as.character(cohort_ref[[2]]$x)`: Can't convert `x` <dbplyr_table_ident> to <character>.
  Backtrace:
       ▆
    1. ├─IncidencePrevalence::mockIncidencePrevalenceRef(sampleSize = 10000) at test-plotting.R:2:2
    2. │ └─CDMConnector::cdm_from_con(...)
    3. │   └─CDMConnector::new_generated_cohort_set(...)
    4. │     ├─... %>% stringr::str_remove_all("[^A-Za-z0-9_]")
    5. │     ├─base::rev(...)
    6. │     ├─stringr::str_split(as.character(cohort_ref[[2]]$x), "\\.")
    7. │     │ └─stringr:::check_lengths(string, pattern)
    8. │     │   └─vctrs::vec_size_common(...)
    9. │     ├─base::as.character(cohort_ref[[2]]$x)
   10. │     └─vctrs:::as.character.vctrs_vctr(cohort_ref[[2]]$x)
   11. │       └─vctrs::vec_cast(x, character())
   12. ├─stringr::str_remove_all(., "[^A-Za-z0-9_]")
   13. │ └─stringr::str_replace_all(string, pattern, "")
   14. │   └─stringr:::check_lengths(string, pattern, replacement)
   15. │     └─vctrs::vec_size_common(...)
   16. └─vctrs (local) `<fn>`()
   17.   └─vctrs::vec_default_cast(...)
   18.     ├─base::withRestarts(...)
   19.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   20.     │   └─base (local) doWithOneRestart(return(expr), restart)
   21.     └─vctrs::stop_incompatible_cast(...)
   22.       └─vctrs::stop_incompatible_type(...)
   23.         └─vctrs:::stop_incompatible(...)
   24.           └─vctrs:::stop_vctrs(...)
   25.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
  ── Error ('test-plotting.R:35:3'): basic prevalence plot ───────────────────────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `as.character(cohort_ref[[2]]$x)`: Can't convert `x` <dbplyr_table_ident> to <character>.
  Backtrace:
       ▆
    1. ├─IncidencePrevalence::mockIncidencePrevalenceRef(sampleSize = 10000) at test-plotting.R:35:2
    2. │ └─CDMConnector::cdm_from_con(...)
    3. │   └─CDMConnector::new_generated_cohort_set(...)
    4. │     ├─... %>% stringr::str_remove_all("[^A-Za-z0-9_]")
    5. │     ├─base::rev(...)
    6. │     ├─stringr::str_split(as.character(cohort_ref[[2]]$x), "\\.")
    7. │     │ └─stringr:::check_lengths(string, pattern)
    8. │     │   └─vctrs::vec_size_common(...)
    9. │     ├─base::as.character(cohort_ref[[2]]$x)
   10. │     └─vctrs:::as.character.vctrs_vctr(cohort_ref[[2]]$x)
   11. │       └─vctrs::vec_cast(x, character())
   12. ├─stringr::str_remove_all(., "[^A-Za-z0-9_]")
   13. │ └─stringr::str_replace_all(string, pattern, "")
   14. │   └─stringr:::check_lengths(string, pattern, replacement)
   15. │     └─vctrs::vec_size_common(...)
   16. └─vctrs (local) `<fn>`()
   17.   └─vctrs::vec_default_cast(...)
   18.     ├─base::withRestarts(...)
   19.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   20.     │   └─base (local) doWithOneRestart(return(expr), restart)
   21.     └─vctrs::stop_incompatible_cast(...)
   22.       └─vctrs::stop_incompatible_type(...)
   23.         └─vctrs:::stop_incompatible(...)
   24.           └─vctrs:::stop_vctrs(...)
   25.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
  ── Error ('test-plotting.R:72:3'): plot facets ─────────────────────────────────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `as.character(cohort_ref[[2]]$x)`: Can't convert `x` <dbplyr_table_ident> to <character>.
  Backtrace:
       ▆
    1. ├─IncidencePrevalence::mockIncidencePrevalenceRef(sampleSize = 10000) at test-plotting.R:72:2
    2. │ └─CDMConnector::cdm_from_con(...)
    3. │   └─CDMConnector::new_generated_cohort_set(...)
    4. │     ├─... %>% stringr::str_remove_all("[^A-Za-z0-9_]")
    5. │     ├─base::rev(...)
    6. │     ├─stringr::str_split(as.character(cohort_ref[[2]]$x), "\\.")
    7. │     │ └─stringr:::check_lengths(string, pattern)
    8. │     │   └─vctrs::vec_size_common(...)
    9. │     ├─base::as.character(cohort_ref[[2]]$x)
   10. │     └─vctrs:::as.character.vctrs_vctr(cohort_ref[[2]]$x)
   11. │       └─vctrs::vec_cast(x, character())
   12. ├─stringr::str_remove_all(., "[^A-Za-z0-9_]")
   13. │ └─stringr::str_replace_all(string, pattern, "")
   14. │   └─stringr:::check_lengths(string, pattern, replacement)
   15. │     └─vctrs::vec_size_common(...)
   16. └─vctrs (local) `<fn>`()
   17.   └─vctrs::vec_default_cast(...)
   18.     ├─base::withRestarts(...)
   19.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   20.     │   └─base (local) doWithOneRestart(return(expr), restart)
   21.     └─vctrs::stop_incompatible_cast(...)
   22.       └─vctrs::stop_incompatible_type(...)
   23.         └─vctrs:::stop_incompatible(...)
   24.           └─vctrs:::stop_vctrs(...)
   25.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
  ── Error ('test-plotting.R:117:3'): plot colour ────────────────────────────────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `as.character(cohort_ref[[2]]$x)`: Can't convert `x` <dbplyr_table_ident> to <character>.
  Backtrace:
       ▆
    1. ├─IncidencePrevalence::mockIncidencePrevalenceRef(sampleSize = 10000) at test-plotting.R:117:2
    2. │ └─CDMConnector::cdm_from_con(...)
    3. │   └─CDMConnector::new_generated_cohort_set(...)
    4. │     ├─... %>% stringr::str_remove_all("[^A-Za-z0-9_]")
    5. │     ├─base::rev(...)
    6. │     ├─stringr::str_split(as.character(cohort_ref[[2]]$x), "\\.")
    7. │     │ └─stringr:::check_lengths(string, pattern)
    8. │     │   └─vctrs::vec_size_common(...)
    9. │     ├─base::as.character(cohort_ref[[2]]$x)
   10. │     └─vctrs:::as.character.vctrs_vctr(cohort_ref[[2]]$x)
   11. │       └─vctrs::vec_cast(x, character())
   12. ├─stringr::str_remove_all(., "[^A-Za-z0-9_]")
   13. │ └─stringr::str_replace_all(string, pattern, "")
   14. │   └─stringr:::check_lengths(string, pattern, replacement)
   15. │     └─vctrs::vec_size_common(...)
   16. └─vctrs (local) `<fn>`()
   17.   └─vctrs::vec_default_cast(...)
   18.     ├─base::withRestarts(...)
   19.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   20.     │   └─base (local) doWithOneRestart(return(expr), restart)
   21.     └─vctrs::stop_incompatible_cast(...)
   22.       └─vctrs::stop_incompatible_type(...)
   23.         └─vctrs:::stop_incompatible(...)
   24.           └─vctrs:::stop_vctrs(...)
   25.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
  
  [ FAIL 17 | WARN 0 | SKIP 76 | PASS 81 ]
  Error: Test failures
  Execution halted