Running ‘testthat.R’ [20s/401s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(canadacovid)
  > 
  > test_check("canadacovid")
  [ FAIL 9 | WARN 0 | SKIP 0 | PASS 57 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure (test-reports.R:4:3): get_reports works ─────────────────────────────
  ncol(reports_overall) (`actual`) not equal to 22 (`expected`).
  
    `actual`: 24
  `expected`: 22
  ── Failure (test-reports.R:9:3): get_reports works ─────────────────────────────
  any(is.na(reports_overall)) is not FALSE
  
  `actual`:   TRUE 
  `expected`: FALSE
  ── Failure (test-reports.R:22:3): get_reports works ────────────────────────────
  reports_province %>% dplyr::filter(province == "NS") (`actual`) not equal to reports_ns_nb_nv %>% dplyr::filter(province == "NS") (`expected`).
  
  `actual` is length 25
  `expected` is length 24
  
       names(actual)                | names(expected)                  
  [22] "total_boosters_1"           | "total_boosters_1"           [22]
  [23] "total_vaccines_distributed" | "total_vaccines_distributed" [23]
  [24] "change_boosters_2"          | "change_boosters_2"          [24]
  [25] "total_boosters_2"           -                                  
  
  `actual$total_boosters_2` is an integer vector (NA, NA, NA, NA, NA, ...)
  `expected$total_boosters_2` is absent
  ── Failure (test-summary.R:8:3): get_summary works ─────────────────────────────
  ncol(summary_overall) (`actual`) not equal to 22 (`expected`).
  
    `actual`: 24
  `expected`: 22
  ── Failure (test-summary.R:14:3): get_summary works ────────────────────────────
  ncol(summary_province) (`actual`) not equal to 23 (`expected`).
  
    `actual`: 25
  `expected`: 23
  ── Failure (test-summary.R:15:3): get_summary works ────────────────────────────
  any(is.na(summary_province)) is not FALSE
  
  `actual`:   TRUE 
  `expected`: FALSE
  ── Failure (test-vaccination.R:5:3): get_vaccination_data works ────────────────
  ncol(vaccination_data_summary) (`actual`) not equal to 10 (`expected`).
  
    `actual`: 12
  `expected`: 10
  ── Failure (test-vaccination.R:9:3): get_vaccination_data works ────────────────
  ncol(vaccination_data_report) (`actual`) not equal to 10 (`expected`).
  
    `actual`: 12
  `expected`: 10
  ── Failure (test-vaccination.R:15:3): get_vaccination_data works ───────────────
  any(is.na(vaccination_data_report)) is not FALSE
  
  `actual`:   TRUE 
  `expected`: FALSE
  
  [ FAIL 9 | WARN 0 | SKIP 0 | PASS 57 ]
  Error: Test failures
  Execution halted