Running ‘testthat.R’ [4s/218s]
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")
  Error in open.connection(x, "rb") : 
    Timeout was reached: [www.ipea.gov.br] Failed to connect to www.ipea.gov.br port 443 after 10002 ms: Timeout was reached
  Error in open.connection(x, "rb") : 
    Timeout was reached: [www.ipea.gov.br] SSL connection timeout
  [ FAIL 9 | WARN 0 | SKIP 0 | PASS 11 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-get.R:11:3'): wrong parameters ─────────────────────────────────
  <httr2_failure/httr2_error/rlang_error/error/condition>
  Error in `httr2::req_perform(httr2::request("https://www.ipea.gov.br/atlasestado/api/v1/series"))`: Failed to perform HTTP request.
  Caused by error in `curl::curl_fetch_memory()`:
  ! Timeout was reached: [www.ipea.gov.br] SSL connection timeout
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(get_series(series_id = c(1, 215))) at test-get.R:11:3
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. └─aebdata::get_series(series_id = c(1, 215))
    8.   ├─base::do.call(...)
    9.   ├─base::lapply(...)
   10.   ├─httr2::resp_body_json(httr2::req_perform(httr2::request("https://www.ipea.gov.br/atlasestado/api/v1/series")))
   11.   │ └─httr2:::check_response(resp)
   12.   │   └─httr2:::is_response(resp)
   13.   └─httr2::req_perform(httr2::request("https://www.ipea.gov.br/atlasestado/api/v1/series"))
   14.     └─base::tryCatch(...)
   15.       └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   16.         └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   17.           └─value[[3L]](cond)
  ── Failure ('test-get.R:18:3'): empty series ───────────────────────────────────
  `get_series(series_id = c(162, 177))` did not throw the expected error.
  ── Error ('test-get.R:20:3'): empty series ─────────────────────────────────────
  <httr2_failure/httr2_error/rlang_error/error/condition>
  Error in `httr2::req_perform(httr2::request("https://www.ipea.gov.br/atlasestado/api/v1/series"))`: Failed to perform HTTP request.
  Caused by error in `curl::curl_fetch_memory()`:
  ! Timeout was reached: [www.ipea.gov.br] SSL connection timeout
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(get_series(series_id = c(162, 215))) at test-get.R:20:3
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. └─aebdata::get_series(series_id = c(162, 215))
    8.   ├─base::do.call(...)
    9.   ├─base::lapply(...)
   10.   ├─httr2::resp_body_json(httr2::req_perform(httr2::request("https://www.ipea.gov.br/atlasestado/api/v1/series")))
   11.   │ └─httr2:::check_response(resp)
   12.   │   └─httr2:::is_response(resp)
   13.   └─httr2::req_perform(httr2::request("https://www.ipea.gov.br/atlasestado/api/v1/series"))
   14.     └─base::tryCatch(...)
   15.       └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   16.         └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   17.           └─value[[3L]](cond)
  ── Error ('test-get.R:25:3'): get works ────────────────────────────────────────
  Error in `open.connection(x, "rb")`: Timeout was reached: [www.ipea.gov.br] SSL connection timeout
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(get_series(series_id = 215), rds$one) at test-get.R:25:3
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─aebdata::get_series(series_id = 215)
    5.   └─aebdata:::get_series_csv(series_id = df_series$series_id)
    6.     ├─base::grep(...)
    7.     │ └─base::is.factor(x)
    8.     ├─rvest::html_attr(...)
    9.     │ └─xml2::xml_attr(x, name, default = default)
   10.     ├─rvest::html_elements(...)
   11.     ├─rvest::html_element(...)
   12.     ├─rvest::read_html(...)
   13.     └─xml2:::read_html.default(...)
   14.       ├─base::suppressWarnings(...)
   15.       │ └─base::withCallingHandlers(...)
   16.       ├─xml2::read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
   17.       └─xml2:::read_xml.character(...)
   18.         └─xml2:::read_xml.connection(...)
   19.           ├─base::open(x, "rb")
   20.           └─base::open.connection(x, "rb")
  ── Error ('test-get.R:33:3'): get_csv works ────────────────────────────────────
  Error in `open.connection(x, "rb")`: Timeout was reached: [www.ipea.gov.br] SSL connection timeout
  Backtrace:
       ▆
    1. ├─testthat::expect_null(get_series_csv(162)) at test-get.R:33:3
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─aebdata:::get_series_csv(162)
    5.   ├─base::grep(...)
    6.   │ └─base::is.factor(x)
    7.   ├─rvest::html_attr(...)
    8.   │ └─xml2::xml_attr(x, name, default = default)
    9.   ├─rvest::html_elements(...)
   10.   ├─rvest::html_element(...)
   11.   ├─rvest::read_html(...)
   12.   └─xml2:::read_html.default(...)
   13.     ├─base::suppressWarnings(...)
   14.     │ └─base::withCallingHandlers(...)
   15.     ├─xml2::read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
   16.     └─xml2:::read_xml.character(...)
   17.       └─xml2:::read_xml.connection(...)
   18.         ├─base::open(x, "rb")
   19.         └─base::open.connection(x, "rb")
  ── Error ('test-list.R:3:3'): list works ───────────────────────────────────────
  <httr2_failure/httr2_error/rlang_error/error/condition>
  Error in `httr2::req_perform(httr2::request("https://www.ipea.gov.br/atlasestado/api/v1/temas"))`: Failed to perform HTTP request.
  Caused by error in `curl::curl_fetch_memory()`:
  ! Timeout was reached: [www.ipea.gov.br] SSL connection timeout
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(list_themes(), rds$themes) at test-list.R:3:3
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─aebdata::list_themes()
    5.   ├─base::do.call(...)
    6.   ├─base::lapply(...)
    7.   ├─httr2::resp_body_json(httr2::req_perform(httr2::request("https://www.ipea.gov.br/atlasestado/api/v1/temas")))
    8.   │ └─httr2:::check_response(resp)
    9.   │   └─httr2:::is_response(resp)
   10.   └─httr2::req_perform(httr2::request("https://www.ipea.gov.br/atlasestado/api/v1/temas"))
   11.     └─base::tryCatch(...)
   12.       └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   13.         └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   14.           └─value[[3L]](cond)
  ── Error ('test-list.R:15:3'): wrong parameters ────────────────────────────────
  <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] SSL connection timeout
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(list_series(theme_id = c(1, 50))) at test-list.R:15:3
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. └─aebdata::list_series(theme_id = c(1, 50))
    8.   └─base::lapply(df_themes$theme_id, function(id) list_series_id(theme_id = id))
    9.     └─aebdata (local) FUN(X[[i]], ...)
   10.       └─aebdata:::list_series_id(theme_id = id)
   11.         ├─base::do.call(...)
   12.         ├─base::lapply(...)
   13.         ├─httr2::resp_body_json(...)
   14.         │ └─httr2:::check_response(resp)
   15.         │   └─httr2:::is_response(resp)
   16.         └─httr2::req_perform(...)
   17.           └─base::tryCatch(...)
   18.             └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   19.               └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   20.                 └─value[[3L]](cond)
  ── Error ('test-search.R:4:3'): search works ───────────────────────────────────
  <httr2_failure/httr2_error/rlang_error/error/condition>
  Error in `httr2::req_perform(httr2::request("https://www.ipea.gov.br/atlasestado/api/v1/temas"))`: Failed to perform HTTP request.
  Caused by error in `curl::curl_fetch_memory()`:
  ! Timeout was reached: [www.ipea.gov.br] SSL connection timeout
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(search_series("participação"), rds$simple) at test-search.R:4:3
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─aebdata::search_series("participação")
    5.   └─aebdata::list_series()
    6.     └─aebdata::list_themes()
    7.       ├─base::do.call(...)
    8.       ├─base::lapply(...)
    9.       ├─httr2::resp_body_json(httr2::req_perform(httr2::request("https://www.ipea.gov.br/atlasestado/api/v1/temas")))
   10.       │ └─httr2:::check_response(resp)
   11.       │   └─httr2:::is_response(resp)
   12.       └─httr2::req_perform(httr2::request("https://www.ipea.gov.br/atlasestado/api/v1/temas"))
   13.         └─base::tryCatch(...)
   14.           └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   15.             └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   16.               └─value[[3L]](cond)
  ── Error ('test-search.R:10:3'): require_all works ─────────────────────────────
  <httr2_failure/httr2_error/rlang_error/error/condition>
  Error in `httr2::req_perform(httr2::request("https://www.ipea.gov.br/atlasestado/api/v1/temas"))`: Failed to perform HTTP request.
  Caused by error in `curl::curl_fetch_memory()`:
  ! Timeout was reached: [www.ipea.gov.br] SSL connection timeout
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-search.R:10:3
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─aebdata::search_series(c("militares", "cargos"), require_all = TRUE)
    5.   └─aebdata::list_series()
    6.     └─aebdata::list_themes()
    7.       ├─base::do.call(...)
    8.       ├─base::lapply(...)
    9.       ├─httr2::resp_body_json(httr2::req_perform(httr2::request("https://www.ipea.gov.br/atlasestado/api/v1/temas")))
   10.       │ └─httr2:::check_response(resp)
   11.       │   └─httr2:::is_response(resp)
   12.       └─httr2::req_perform(httr2::request("https://www.ipea.gov.br/atlasestado/api/v1/temas"))
   13.         └─base::tryCatch(...)
   14.           └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   15.             └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   16.               └─value[[3L]](cond)
  
  [ FAIL 9 | WARN 0 | SKIP 0 | PASS 11 ]
  Error: Test failures
  Execution halted