Running ‘testthat.R’ [4s/127s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(canadacovid)
  > 
  > test_check("canadacovid")
  [ FAIL 9 | WARN 0 | SKIP 0 | PASS 6 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-api.R:3:3): get_content_parsed works ────────────────────────────
  Error: API requested failed with code 500
  Backtrace:
      ▆
   1. ├─testthat::expect_warning(get_content_parsed("provinces"), "base") at test-api.R:3:2
   2. │ └─testthat:::expect_condition_matching(...)
   3. │   └─testthat:::quasi_capture(...)
   4. │     ├─testthat .capture(...)
   5. │     │ └─base::withCallingHandlers(...)
   6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   7. └─canadacovid::get_content_parsed("provinces")
  ── Error (test-provinces.R:3:3): get_provinces ─────────────────────────────────
  Error: API requested failed with code 500
  Backtrace:
      ▆
   1. └─canadacovid::get_provinces() at test-provinces.R:3:2
   2.   └─canadacovid::get_content_parsed(url)
  ── Error (test-regions.R:3:3): get_regions works ───────────────────────────────
  Error: API requested failed with code 500
  Backtrace:
      ▆
   1. └─canadacovid::get_regions() at test-regions.R:3:2
   2.   └─purrr::map_dfr(...)
   3.     └─purrr::map(.x, .f, ...)
   4.       └─canadacovid .f(.x[[i]], ...)
   5.         └─canadacovid::get_content_parsed(url)
  ── Error (test-regions.R:19:3): get_subregions works ───────────────────────────
  Error: API requested failed with code 500
  Backtrace:
      ▆
   1. └─canadacovid::get_subregions() at test-regions.R:19:2
   2.   └─purrr::map_dfr(...)
   3.     └─purrr::map(.x, .f, ...)
   4.       └─canadacovid .f(.x[[i]], ...)
   5.         └─canadacovid::get_content_parsed(url)
  ── Error (test-reports.R:3:3): get_reports works ───────────────────────────────
  Error: API requested failed with code 500
  Backtrace:
      ▆
   1. └─canadacovid::get_reports() at test-reports.R:3:2
   2.   └─canadacovid::get_content_parsed(paste0(base_url, params_url))
  ── Error (test-summary.R:12:3): get_summary works ──────────────────────────────
  Error: API requested failed with code 500
  Backtrace:
      ▆
   1. └─canadacovid::get_summary(split = "province") at test-summary.R:12:2
   2.   └─canadacovid::get_content_parsed(url)
  ── Error (test-vaccination.R:8:3): get_vaccination_data works ──────────────────
  Error: API requested failed with code 500
  Backtrace:
      ▆
   1. └─canadacovid::get_vaccination_data(type = "reports") at test-vaccination.R:8:2
   2.   └─canadacovid::get_reports(...)
   3.     └─canadacovid::get_content_parsed(paste0(base_url, params_url))
  ── Error (test-vaccination.R:33:3): get_subregion_vaccination_data works ───────
  Error: API requested failed with code 500
  Backtrace:
      ▆
   1. └─canadacovid::get_subregion_vaccination_data() at test-vaccination.R:33:2
   2.   └─canadacovid::get_content_parsed(url)
  ── Error (test-vaccine-age-groups.R:3:3): get_vaccine_age_groups works ─────────
  Error: API requested failed with code 500
  Backtrace:
      ▆
   1. ├─canadacovid::get_vaccine_age_groups() at test-vaccine-age-groups.R:3:2
   2. │ ├─... %>% ...
   3. │ └─purrr::map_dfr(...)
   4. │   └─purrr::map(.x, .f, ...)
   5. │     └─canadacovid .f(.x[[i]], ...)
   6. │       └─canadacovid::get_content_parsed(url)
   7. ├─dplyr::mutate(...)
   8. ├─tidyr::unnest(., .data$data)
   9. └─dplyr::mutate(...)
  
  [ FAIL 9 | WARN 0 | SKIP 0 | PASS 6 ]
  Error: Test failures
  Execution halted