Running ‘testthat.R’ [10s/115s]
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 7728 ms: Connection timed out
  [ FAIL 3 | WARN 1 | SKIP 0 | PASS 21 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── 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:33:3'): get_csv works ────────────────────────────────────
  Error in `open.connection(x, "rb")`: Timeout was reached: [www.ipea.gov.br] Failed to connect to www.ipea.gov.br port 443 after 7506 ms: Connection timed out
  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")
  ── Failure ('test-search.R:4:3'): search works ─────────────────────────────────
  search_series("participação") (`actual`) not equal to rds$simple (`expected`).
  
  actual vs expected
                                                                                                                                                          series_title
    actual[3, ]   Participação dos círculos hierárquicos entre os ocupantes de cargos, 2013-2021                                                                      
    actual[4, ]   CAP 02 Brasil: Participação relativa do emprego público municipal do SUS por grupo de municípios, segundo o tamanho da população, em anos escolhidos
    actual[5, ]   CAP 02 Brasil: Participação relativa do emprego público municipal do SUS por grupo de municípios, segundo o tamanho da população, em anos escolhidos
  - actual[6, ]   Participação do setor público no emprego total de países da América Latina (2011 e 2022)                                                            
  + expected[6, ] Participação do emprego no setor público, no emprego total (2011 e 2022)                                                                            
  
  actual$series_title[3:6] vs expected$series_title[3:6]
    "Participação dos círculos hierárquicos entre os ocupantes de cargos, 2013-2021"
    "CAP 02 Brasil: Participação relativa do emprego público municipal do SUS por grupo de municípios, segundo o tamanho da população, em anos escolhidos"
    "CAP 02 Brasil: Participação relativa do emprego público municipal do SUS por grupo de municípios, segundo o tamanho da população, em anos escolhidos"
  - "Participação do setor público no emprego total de países da América Latina (2011 e 2022)"
  + "Participação do emprego no setor público, no emprego total (2011 e 2022)"
  
  [ FAIL 3 | WARN 1 | SKIP 0 | PASS 21 ]
  Error: Test failures
  Execution halted