Running ‘testthat.R’ [0m/10m]
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/testing-design.html#sec-tests-files-overview
  > # * https://testthat.r-lib.org/articles/special-files.html
  > 
  > library(testthat)
  > library(aebdata)
  > 
  > test_check("aebdata")
  x Could not connect. Please, check your connection or try again later.
  Saving _problems/test-get-20.R
  Error in open.connection(x, "rb") : cannot open the connection
  Saving _problems/test-get-28.R
  Saving _problems/test-get-34.R
  Saving _problems/test-list-6.R
  [ FAIL 4 | WARN 1 | SKIP 0 | PASS 21 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-get.R:20:3'): empty series ───────────────────────────────────
  Expected `get_series(series_id = c(162, 215))` to throw a warning.
  ── Failure ('test-get.R:26:3'): get works ──────────────────────────────────────
  Expected `get_series(series_id = c(215, 197))` to equal `list(`215` = rds$one, `197` = rds$multiple)`.
  Differences:
  `actual$215` is an S3 object of class <try-error>, a character vector
  `expected$215` is an S3 object of class <data.frame>, a list
  
  ── Error ('test-get.R:34:3'): get_csv works ────────────────────────────────────
  Error: cannot open the connection
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(get_series_csv(215), rds$one) at test-get.R:34:3
    2. │ └─testthat::quasi_label(enquo(object), label)
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─aebdata:::get_series_csv(215)
    5. │ ├─base::as.data.frame(...)
    6. │ └─readr::read_delim(...)
    7. │   └─vroom::vroom(...)
    8. │     └─vroom:::vroom_(...)
    9. └─vroom (local) `<fn>`(`<curl>`, "rb")
   10.   └─base::tryCatch(...)
   11.     └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   12.       └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   13.         └─value[[3L]](cond)
  ── Error ('test-list.R:4:3'): list works ───────────────────────────────────────
  <httr2_failure/httr2_error/rlang_error/error/condition>
  Error in `httr2::req_perform(httr2::request(paste0("https://www.ipea.gov.br/atlasestado/api/v1/series/", theme_id)))`: Failed to perform HTTP request.
  Caused by error in `curl::curl_fetch_memory()`:
  ! Timeout was reached [www.ipea.gov.br]:
  Connection timed out after 10002 milliseconds
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-list.R:4:3
    2. │ └─testthat::quasi_label(enquo(object), label)
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─aebdata::list_series(theme_id = 50, theme_title = "Militares na burocracia")
    5.   └─base::lapply(df_themes$theme_id, function(id) list_series_id(theme_id = id))
    6.     └─aebdata (local) FUN(X[[i]], ...)
    7.       └─aebdata:::list_series_id(theme_id = id)
    8.         ├─base::do.call(...)
    9.         ├─base::lapply(...)
   10.         ├─httr2::resp_body_json(...)
   11.         │ └─httr2:::check_response(resp)
   12.         │   └─httr2:::is_response(resp)
   13.         └─httr2::req_perform(...)
   14.           └─httr2:::handle_resp(req, resp, error_call = error_call)
   15.             └─rlang::cnd_signal(resp)
  
  [ FAIL 4 | WARN 1 | SKIP 0 | PASS 21 ]
  Error:
  ! Test failures.
  Execution halted