Running ‘testthat.R’ [10s/21s]
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(ColombiAPI)
  > 
  > test_check("ColombiAPI")
  
  Attaching package: 'dplyr'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  Datasets available in the 'ColombiAPI' package:
  Datasets available in the 'ColombiAPI' package:
  [ FAIL 25 | WARN 0 | SKIP 0 | PASS 138 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-get_Colombia_info.R:37:3'): Función get_Colombia_info devuelve datos esperados ──
  names(data) (`actual`) not equal to c(...) (`expected`).
  
  `actual` is NULL
  `expected` is a character vector ('name', 'surface', 'population', 'timeZone', 'currency', ...)
  ── Failure ('test-get_Colombia_info.R:38:3'): Función get_Colombia_info devuelve datos esperados ──
  nrow(data) (`actual`) not equal to 1 (`expected`).
  
  `actual` is NULL
  `expected` is a double vector (1)
  ── Failure ('test-get_Colombia_info.R:39:3'): Función get_Colombia_info devuelve datos esperados ──
  data$name (`actual`) not equal to "Colombia" (`expected`).
  
  `actual` is NULL
  `expected` is a character vector ('Colombia')
  ── Failure ('test-get_Colombia_info.R:40:3'): Función get_Colombia_info devuelve datos esperados ──
  data$surface (`actual`) not equal to 1141748 (`expected`).
  
  `actual` is NULL
  `expected` is a double vector (1141748)
  ── Failure ('test-get_Colombia_info.R:41:3'): Función get_Colombia_info devuelve datos esperados ──
  data$population (`actual`) not equal to 52235050 (`expected`).
  
  `actual` is NULL
  `expected` is a double vector (52235050)
  ── Failure ('test-get_Colombia_info.R:42:3'): Función get_Colombia_info devuelve datos esperados ──
  data$timeZone (`actual`) not equal to "UTC-5" (`expected`).
  
  `actual` is NULL
  `expected` is a character vector ('UTC-5')
  ── Failure ('test-get_Colombia_info.R:43:3'): Función get_Colombia_info devuelve datos esperados ──
  data$currency (`actual`) not equal to "Colombian Peso" (`expected`).
  
  `actual` is NULL
  `expected` is a character vector ('Colombian Peso')
  ── Failure ('test-get_Colombia_info.R:44:3'): Función get_Colombia_info devuelve datos esperados ──
  data$currencySymbol (`actual`) not equal to "$" (`expected`).
  
  `actual` is NULL
  `expected` is a character vector ('$')
  ── Failure ('test-get_Colombia_info.R:45:3'): Función get_Colombia_info devuelve datos esperados ──
  data$region (`actual`) not equal to "Americas" (`expected`).
  
  `actual` is NULL
  `expected` is a character vector ('Americas')
  ── Failure ('test-get_Colombia_info.R:50:3'): Función get_Colombia_info devuelve un data frame ──
  `data` is not an S3 object
  ── Error ('test-get_airports_list.R:26:3'): Función get_airports_list devuelve datos esperados ──
  Error in `dplyr::select(., id, name, iataCode, oaciCode, type, longitude, 
      latitude)`: `select()` doesn't handle lists.
  Backtrace:
      ▆
   1. ├─ColombiAPI::get_airports_list() at test-get_airports_list.R:26:3
   2. │ └─... %>% dplyr::arrange(name)
   3. ├─dplyr::arrange(., name)
   4. ├─dplyr::select(...)
   5. └─dplyr:::select.list(., id, name, iataCode, oaciCode, type, longitude, latitude)
   6.   └─rlang::abort("`select()` doesn't handle lists.")
  ── Error ('test-get_airports_list.R:38:3'): Función get_airports_list devuelve un data frame ──
  Error in `dplyr::select(., id, name, iataCode, oaciCode, type, longitude, 
      latitude)`: `select()` doesn't handle lists.
  Backtrace:
      ▆
   1. ├─ColombiAPI::get_airports_list() at test-get_airports_list.R:38:3
   2. │ └─... %>% dplyr::arrange(name)
   3. ├─dplyr::arrange(., name)
   4. ├─dplyr::select(...)
   5. └─dplyr:::select.list(., id, name, iataCode, oaciCode, type, longitude, latitude)
   6.   └─rlang::abort("`select()` doesn't handle lists.")
  ── Failure ('test-get_airports_list.R:44:3'): Función get_airports_list maneja errores de API ──
  `get_airports_list()` threw an unexpected error.
  Message: `select()` doesn't handle lists.
  Class:   rlang_error/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(get_airports_list(), NA) at test-get_airports_list.R:44: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. ├─ColombiAPI::get_airports_list()
    8. │ └─... %>% dplyr::arrange(name)
    9. ├─dplyr::arrange(., name)
   10. ├─dplyr::select(...)
   11. └─dplyr:::select.list(., id, name, iataCode, oaciCode, type, longitude, latitude)
   12.   └─rlang::abort("`select()` doesn't handle lists.")
  ── Failure ('test-get_airports_list.R:49:3'): Función get_airports_list maneja errores de conexión ──
  `get_airports_list()` threw an unexpected error.
  Message: `select()` doesn't handle lists.
  Class:   rlang_error/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(get_airports_list(), NA) at test-get_airports_list.R:49: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. ├─ColombiAPI::get_airports_list()
    8. │ └─... %>% dplyr::arrange(name)
    9. ├─dplyr::arrange(., name)
   10. ├─dplyr::select(...)
   11. └─dplyr:::select.list(., id, name, iataCode, oaciCode, type, longitude, latitude)
   12.   └─rlang::abort("`select()` doesn't handle lists.")
  ── Error ('test-get_departments_list.R:25:3'): Función get_departments_list devuelve datos esperados ──
  Error in `dplyr::select(., id, name, surface, population)`: `select()` doesn't handle lists.
  Backtrace:
      ▆
   1. ├─ColombiAPI::get_departments_list() at test-get_departments_list.R:25:3
   2. │ └─... %>% dplyr::arrange(name)
   3. ├─dplyr::arrange(., name)
   4. ├─dplyr::select(., id, name, surface, population)
   5. └─dplyr:::select.list(., id, name, surface, population)
   6.   └─rlang::abort("`select()` doesn't handle lists.")
  ── Error ('test-get_departments_list.R:34:3'): Función get_departments_list devuelve un data frame ──
  Error in `dplyr::select(., id, name, surface, population)`: `select()` doesn't handle lists.
  Backtrace:
      ▆
   1. ├─ColombiAPI::get_departments_list() at test-get_departments_list.R:34:3
   2. │ └─... %>% dplyr::arrange(name)
   3. ├─dplyr::arrange(., name)
   4. ├─dplyr::select(., id, name, surface, population)
   5. └─dplyr:::select.list(., id, name, surface, population)
   6.   └─rlang::abort("`select()` doesn't handle lists.")
  ── Failure ('test-get_departments_list.R:40:3'): Función get_departments_list maneja errores de API ──
  `get_departments_list()` threw an unexpected error.
  Message: `select()` doesn't handle lists.
  Class:   rlang_error/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(get_departments_list(), NA) at test-get_departments_list.R:40: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. ├─ColombiAPI::get_departments_list()
    8. │ └─... %>% dplyr::arrange(name)
    9. ├─dplyr::arrange(., name)
   10. ├─dplyr::select(., id, name, surface, population)
   11. └─dplyr:::select.list(., id, name, surface, population)
   12.   └─rlang::abort("`select()` doesn't handle lists.")
  ── Failure ('test-get_departments_list.R:45:3'): Función get_departments_list maneja errores de conexión ──
  `get_departments_list()` threw an unexpected error.
  Message: `select()` doesn't handle lists.
  Class:   rlang_error/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(get_departments_list(), NA) at test-get_departments_list.R:45: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. ├─ColombiAPI::get_departments_list()
    8. │ └─... %>% dplyr::arrange(name)
    9. ├─dplyr::arrange(., name)
   10. ├─dplyr::select(., id, name, surface, population)
   11. └─dplyr:::select.list(., id, name, surface, population)
   12.   └─rlang::abort("`select()` doesn't handle lists.")
  ── Error ('test-get_presidents_list.R:47:3'): get_presidents_list returns a data frame with expected columns ──
  Error in `dplyr::select(., id, name, lastName, startPeriodDate, endPeriodDate, 
      politicalParty)`: `select()` doesn't handle lists.
  Backtrace:
      ▆
   1. ├─ColombiAPI::get_presidents_list() at test-get_presidents_list.R:47:3
   2. │ └─... %>% dplyr::arrange(dplyr::desc(startPeriodDate)) at test-get_presidents_list.R:38:3
   3. ├─dplyr::arrange(., dplyr::desc(startPeriodDate))
   4. ├─dplyr::select(...)
   5. └─dplyr:::select.list(., id, name, lastName, startPeriodDate, endPeriodDate, politicalParty)
   6.   └─rlang::abort("`select()` doesn't handle lists.")
  ── Error ('test-get_presidents_list.R:54:3'): get_presidents_list returns non-null data ──
  Error in `dplyr::select(., id, name, lastName, startPeriodDate, endPeriodDate, 
      politicalParty)`: `select()` doesn't handle lists.
  Backtrace:
      ▆
   1. ├─ColombiAPI::get_presidents_list() at test-get_presidents_list.R:54:3
   2. │ └─... %>% dplyr::arrange(dplyr::desc(startPeriodDate)) at test-get_presidents_list.R:38:3
   3. ├─dplyr::arrange(., dplyr::desc(startPeriodDate))
   4. ├─dplyr::select(...)
   5. └─dplyr:::select.list(., id, name, lastName, startPeriodDate, endPeriodDate, politicalParty)
   6.   └─rlang::abort("`select()` doesn't handle lists.")
  ── Error ('test-get_presidents_list.R:60:3'): get_presidents_list correctly orders presidents by start period date ──
  Error in `dplyr::select(., id, name, lastName, startPeriodDate, endPeriodDate, 
      politicalParty)`: `select()` doesn't handle lists.
  Backtrace:
      ▆
   1. ├─ColombiAPI::get_presidents_list() at test-get_presidents_list.R:60:3
   2. │ └─... %>% dplyr::arrange(dplyr::desc(startPeriodDate)) at test-get_presidents_list.R:38:3
   3. ├─dplyr::arrange(., dplyr::desc(startPeriodDate))
   4. ├─dplyr::select(...)
   5. └─dplyr:::select.list(., id, name, lastName, startPeriodDate, endPeriodDate, politicalParty)
   6.   └─rlang::abort("`select()` doesn't handle lists.")
  ── Error ('test-get_presidents_list.R:67:3'): get_presidents_list handles missing values in endPeriodDate correctly ──
  Error in `dplyr::select(., id, name, lastName, startPeriodDate, endPeriodDate, 
      politicalParty)`: `select()` doesn't handle lists.
  Backtrace:
      ▆
   1. ├─ColombiAPI::get_presidents_list() at test-get_presidents_list.R:67:3
   2. │ └─... %>% dplyr::arrange(dplyr::desc(startPeriodDate)) at test-get_presidents_list.R:38:3
   3. ├─dplyr::arrange(., dplyr::desc(startPeriodDate))
   4. ├─dplyr::select(...)
   5. └─dplyr:::select.list(., id, name, lastName, startPeriodDate, endPeriodDate, politicalParty)
   6.   └─rlang::abort("`select()` doesn't handle lists.")
  ── Error ('test-get_presidents_list.R:74:3'): get_presidents_list contains expected values for some key fields ──
  Error in `dplyr::select(., id, name, lastName, startPeriodDate, endPeriodDate, 
      politicalParty)`: `select()` doesn't handle lists.
  Backtrace:
      ▆
   1. ├─ColombiAPI::get_presidents_list() at test-get_presidents_list.R:74:3
   2. │ └─... %>% dplyr::arrange(dplyr::desc(startPeriodDate)) at test-get_presidents_list.R:38:3
   3. ├─dplyr::arrange(., dplyr::desc(startPeriodDate))
   4. ├─dplyr::select(...)
   5. └─dplyr:::select.list(., id, name, lastName, startPeriodDate, endPeriodDate, politicalParty)
   6.   └─rlang::abort("`select()` doesn't handle lists.")
  ── Error ('test-get_regions_list.R:48:3'): Function get_regions_list returns expected data ──
  Error in `dplyr::select(., id, name)`: `select()` doesn't handle lists.
  Backtrace:
      ▆
   1. ├─ColombiAPI::get_regions_list() at test-get_regions_list.R:48:3
   2. │ └─info_regions_json %>% dplyr::select(id, name) %>% ... at test-get_regions_list.R:39:3
   3. ├─dplyr::arrange(., name)
   4. ├─dplyr::select(., id, name)
   5. └─dplyr:::select.list(., id, name)
   6.   └─rlang::abort("`select()` doesn't handle lists.")
  ── Error ('test-get_regions_list.R:62:3'): Function get_regions_list returns a data frame ──
  Error in `dplyr::select(., id, name)`: `select()` doesn't handle lists.
  Backtrace:
      ▆
   1. ├─ColombiAPI::get_regions_list() at test-get_regions_list.R:62:3
   2. │ └─info_regions_json %>% dplyr::select(id, name) %>% ... at test-get_regions_list.R:39:3
   3. ├─dplyr::arrange(., name)
   4. ├─dplyr::select(., id, name)
   5. └─dplyr:::select.list(., id, name)
   6.   └─rlang::abort("`select()` doesn't handle lists.")
  
  [ FAIL 25 | WARN 0 | SKIP 0 | PASS 138 ]
  Error: Test failures
  Execution halted