Running ‘testthat.R’ [7s/192s]
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-17.R
  x Could not connect. Please, check your connection or try again later.
  Saving _problems/test-get-18.R
  x Could not connect. Please, check your connection or try again later.
  Saving _problems/test-get-20.R
  x Could not connect. Please, check your connection or try again later.
  Saving _problems/test-get-25.R
  x Could not connect. Please, check your connection or try again later.
  Saving _problems/test-get-28.R
  Saving _problems/test-get-33.R
  x Could not connect. Please, check your connection or try again later.
  Saving _problems/test-list-3.R
  x Could not connect. Please, check your connection or try again later.
  Saving _problems/test-list-6.R
  x Could not connect. Please, check your connection or try again later.
  x Could not connect. Please, check your connection or try again later.
  x Could not connect. Please, check your connection or try again later.
  x Could not connect. Please, check your connection or try again later.
  Saving _problems/test-list-15.R
  x Could not connect. Please, check your connection or try again later.
  Saving _problems/test-search-4.R
  x Could not connect. Please, check your connection or try again later.
  Saving _problems/test-search-11.R
  x Could not connect. Please, check your connection or try again later.
  Saving _problems/test-search-18.R
  x Could not connect. Please, check your connection or try again later.
  Saving _problems/test-search-25.R
  Saving _problems/test-utils-2.R
  [ FAIL 14 | WARN 0 | SKIP 0 | PASS 9 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-get.R:17:3'): empty series ───────────────────────────────────
  Expected `get_series(series_id = 162)` to throw a error.
  ── Failure ('test-get.R:18:3'): empty series ───────────────────────────────────
  Expected `get_series(series_id = c(162, 177))` to throw a error.
  ── Failure ('test-get.R:20:3'): empty series ───────────────────────────────────
  Expected `get_series(series_id = c(162, 215))` to throw a warning.
  ── Failure ('test-get.R:25:3'): get works ──────────────────────────────────────
  Expected `get_series(series_id = 215)` to equal `rds$one`.
  Differences:
  `actual` is a character vector ('cli-749047-15')
  `expected` is an S3 object of class <data.frame>, a list
  
  ── 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` is a character vector ('cli-749047-18')
  `expected` is a list
  
  ── Error ('test-get.R:33:3'): get_csv works ────────────────────────────────────
  Error in `open.connection(x, "rb")`: cannot open the connection
  Backtrace:
       ▆
    1. ├─testthat::expect_null(get_series_csv(162)) at test-get.R:33:3
    2. │ └─testthat::quasi_label(enquo(object), label)
    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-list.R:3:3'): list works ─────────────────────────────────────
  Expected `list_themes()` to equal `rds$themes`.
  Differences:
  `actual` is a character vector ('cli-749047-21')
  `expected` is an S3 object of class <data.frame>, a list
  
  ── Error ('test-list.R:4:3'): list works ───────────────────────────────────────
  Error in `df_themes$theme_id`: $ operator is invalid for atomic vectors
  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::intersect(theme_id, df_themes$theme_id)
  ── Error ('test-list.R:15:3'): wrong parameters ────────────────────────────────
  Error in `df_themes$theme_id`: $ operator is invalid for atomic vectors
  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::intersect(theme_id, df_themes$theme_id)
  ── Error ('test-search.R:4:3'): search works ───────────────────────────────────
  Error in `df_themes$theme_id`: $ operator is invalid for atomic vectors
  Backtrace:
      ▆
   1. ├─testthat::expect_equal(search_series("militares"), rds$simple) at test-search.R:4:3
   2. │ └─testthat::quasi_label(enquo(object), label)
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─aebdata::search_series("militares")
   5.   └─aebdata::list_series()
   6.     └─base::lapply(df_themes$theme_id, function(id) list_series_id(theme_id = id))
  ── Error ('test-search.R:10:3'): require_all works ─────────────────────────────
  Error in `df_themes$theme_id`: $ operator is invalid for atomic vectors
  Backtrace:
      ▆
   1. ├─testthat::expect_equal(...) at test-search.R:10:3
   2. │ └─testthat::quasi_label(enquo(object), label)
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─aebdata::search_series(c("militares", "cargos"), require_all = TRUE)
   5.   └─aebdata::list_series()
   6.     └─base::lapply(df_themes$theme_id, function(id) list_series_id(theme_id = id))
  ── Error ('test-search.R:17:3'): case_insensitive works ────────────────────────
  Error in `df_themes$theme_id`: $ operator is invalid for atomic vectors
  Backtrace:
      ▆
   1. ├─testthat::expect_equal(...) at test-search.R:17:3
   2. │ └─testthat::quasi_label(enquo(object), label)
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─aebdata::search_series("CAP ", case_insensitive = FALSE)
   5.   └─aebdata::list_series()
   6.     └─base::lapply(df_themes$theme_id, function(id) list_series_id(theme_id = id))
  ── Error ('test-search.R:23:3'): return empty ──────────────────────────────────
  Error in `df_themes$theme_id`: $ operator is invalid for atomic vectors
  Backtrace:
      ▆
   1. ├─testthat::expect_equal(...) at test-search.R:23:3
   2. │ └─testthat::quasi_label(enquo(object), label)
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─aebdata::search_series("miiltares")
   5.   └─aebdata::list_series()
   6.     └─base::lapply(df_themes$theme_id, function(id) list_series_id(theme_id = id))
  ── Failure ('test-utils.R:2:3'): connection works ──────────────────────────────
  Expected `test_connection_aeb()` to be TRUE.
  Differences:
  `actual`:   FALSE
  `expected`: TRUE 
  
  
  [ FAIL 14 | WARN 0 | SKIP 0 | PASS 9 ]
  Error:
  ! Test failures.
  Execution halted