Running ‘testthat.R’ [3s/4s]
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(ntdr)
  > 
  > test_check("ntdr")
  [ FAIL 6 | WARN 0 | SKIP 0 | PASS 1 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-get_ntd.R:4:3'): agency accepts character vector of length > 1 as input ──
  Expected `get_ntd(agency = c("City of Madison", "Capital Area Transportation Authority"))` to run without any errors.
  i Actually got a <httr2_failure> with text:
    Failed to perform HTTP request.
    Caused by error in `curl::curl_fetch_memory()`:
    ! Stream error in the HTTP/2 framing layer [www.transit.dot.gov]: HTTP/2 stream 1 was not closed cleanly: INTERNAL_ERROR (err 2)
  ── Error ('test-get_ntd.R:15:3'): column names are correct ─────────────────────
  <httr2_failure/httr2_error/rlang_error/error/condition>
  Error in `get_ntd()`: Failed to perform HTTP request.
  Caused by error in `curl::curl_fetch_memory()`:
  ! Stream error in the HTTP/2 framing layer [www.transit.dot.gov]: HTTP/2 stream 3 was not closed cleanly: INTERNAL_ERROR (err 2)
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-get_ntd.R:15:3
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::colnames(get_ntd())
    5. │ └─base::is.data.frame(x)
    6. └─ntdr::get_ntd()
    7.   └─ntdr:::get_ntd_url(data_type)
    8.     ├─httr2::resp_body_html(...)
    9.     │ └─httr2:::check_response(resp)
   10.     │   └─httr2:::is_response(resp)
   11.     └─httr2::req_perform(...)
   12.       └─httr2:::handle_resp(req, resp, error_call = error_call)
   13.         └─rlang::cnd_signal(resp)
  ── Error ('test-get_ntd.R:38:3'): ntd variable has correct value ───────────────
  <httr2_failure/httr2_error/rlang_error/error/condition>
  Error in `get_ntd()`: Failed to perform HTTP request.
  Caused by error in `curl::curl_fetch_memory()`:
  ! Stream error in the HTTP/2 framing layer [www.transit.dot.gov]: HTTP/2 stream 5 was not closed cleanly: INTERNAL_ERROR (err 2)
  Backtrace:
      ▆
   1. └─ntdr::get_ntd() at test-get_ntd.R:38:3
   2.   └─ntdr:::get_ntd_url(data_type)
   3.     ├─httr2::resp_body_html(...)
   4.     │ └─httr2:::check_response(resp)
   5.     │   └─httr2:::is_response(resp)
   6.     └─httr2::req_perform(...)
   7.       └─httr2:::handle_resp(req, resp, error_call = error_call)
   8.         └─rlang::cnd_signal(resp)
  ── Error ('test-get_ntd.R:45:3'): returns a URL that starts right ──────────────
  <httr2_failure/httr2_error/rlang_error/error/condition>
  Error in `eval(code, test_env)`: Failed to perform HTTP request.
  Caused by error in `curl::curl_fetch_memory()`:
  ! Stream error in the HTTP/2 framing layer [www.transit.dot.gov]: HTTP/2 stream 7 was not closed cleanly: INTERNAL_ERROR (err 2)
  Backtrace:
       ▆
    1. ├─testthat::expect_match(get_ntd_url(), regexp = "^https://www.transit.dot.gov/sites/fta.dot.gov/files/") at test-get_ntd.R:45:3
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─ntdr:::get_ntd_url()
    5.   ├─httr2::resp_body_html(...)
    6.   │ └─httr2:::check_response(resp)
    7.   │   └─httr2:::is_response(resp)
    8.   └─httr2::req_perform(...)
    9.     └─httr2:::handle_resp(req, resp, error_call = error_call)
   10.       └─rlang::cnd_signal(resp)
  ── Error ('test-get_ntd.R:49:3'): URL contains the right terms for different data_types ──
  <httr2_failure/httr2_error/rlang_error/error/condition>
  Error in `eval(code, test_env)`: Failed to perform HTTP request.
  Caused by error in `curl::curl_fetch_memory()`:
  ! Stream error in the HTTP/2 framing layer [www.transit.dot.gov]: HTTP/2 stream 9 was not closed cleanly: INTERNAL_ERROR (err 2)
  Backtrace:
       ▆
    1. ├─testthat::expect_match(get_ntd_url("raw"), regexp = "Raw") at test-get_ntd.R:49:3
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─ntdr:::get_ntd_url("raw")
    5.   ├─httr2::resp_body_html(...)
    6.   │ └─httr2:::check_response(resp)
    7.   │   └─httr2:::is_response(resp)
    8.   └─httr2::req_perform(...)
    9.     └─httr2:::handle_resp(req, resp, error_call = error_call)
   10.       └─rlang::cnd_signal(resp)
  ── Error ('test-get_ntd.R:60:3'): a specific ridership value is correct ────────
  <httr2_failure/httr2_error/rlang_error/error/condition>
  Error in `get_ntd(agency = "City of Madison", modes = "MB")`: Failed to perform HTTP request.
  Caused by error in `curl::curl_fetch_memory()`:
  ! Stream error in the HTTP/2 framing layer [www.transit.dot.gov]: HTTP/2 stream 13 was not closed cleanly: INTERNAL_ERROR (err 2)
  Backtrace:
      ▆
   1. └─ntdr::get_ntd(agency = "City of Madison", modes = "MB") at test-get_ntd.R:60:3
   2.   └─ntdr:::get_ntd_url(data_type)
   3.     ├─httr2::resp_body_html(...)
   4.     │ └─httr2:::check_response(resp)
   5.     │   └─httr2:::is_response(resp)
   6.     └─httr2::req_perform(...)
   7.       └─httr2:::handle_resp(req, resp, error_call = error_call)
   8.         └─rlang::cnd_signal(resp)
  
  [ FAIL 6 | WARN 0 | SKIP 0 | PASS 1 ]
  Error: Test failures
  Execution halted