Running ‘testthat.R’ [3s/14s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(readrba)
  > 
  > test_check("readrba")
  [ FAIL 2 | WARN 0 | SKIP 15 | PASS 45 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (15)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-get_rba_urls.R:2:3): get_rba_urls() matches correct URLs ────────
  Error in `safely_read_html(url = table_url)`: Could not read HTML at https://www.rba.gov.au/statistics/tables/
  Backtrace:
      ▆
   1. ├─testthat::expect_length(get_rba_urls("A1"), 1) at test-get_rba_urls.R:2:2
   2. │ └─testthat::quasi_label(enquo(object), arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─readrba:::get_rba_urls("A1")
   5.   └─readrba:::scrape_table_list(cur_hist)
   6.     └─readrba:::scrape_indiv_table_list(cur_hist = cur_hist)
   7.       └─readrba:::safely_read_html(url = table_url)
  ── Error (test-get_rba_urls.R:12:3): get_rba_urls() returns multiple URLs where multiple tables have the same no. ──
  Error in `safely_read_html(url = table_url)`: Could not read HTML at https://www.rba.gov.au/statistics/tables/
  Backtrace:
      ▆
   1. ├─testthat::expect_length(get_rba_urls("A3", "current"), 1) at test-get_rba_urls.R:12:2
   2. │ └─testthat::quasi_label(enquo(object), arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─readrba:::get_rba_urls("A3", "current")
   5.   └─readrba:::scrape_table_list(cur_hist)
   6.     └─readrba:::scrape_indiv_table_list(cur_hist = cur_hist)
   7.       └─readrba:::safely_read_html(url = table_url)
  
  [ FAIL 2 | WARN 0 | SKIP 15 | PASS 45 ]
  Error: Test failures
  In addition: Warning messages:
  1: In for (i in seq_len(n)) { :
    closing unused connection 7 (https://www.rba.gov.au/statistics/tables/)
  2: In for (i in seq_len(n)) { :
    closing unused connection 6 (https://www.rba.gov.au/statistics/tables/)
  3: In for (i in seq_len(n)) { :
    closing unused connection 5 (https://www.rba.gov.au/statistics/tables/)
  4: In for (i in seq_len(n)) { :
    closing unused connection 4 (https://www.rba.gov.au/statistics/tables/)
  Execution halted