Running 'testthat.R' [3s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(kofdata)
  Loading required package: jsonlite
  Loading required package: httr
  > 
  > test_check("kofdata")
  Saving _problems/test_get_collection-4.R
  Saving _problems/test_get_collection-23.R
  Saving _problems/test_get_metadata-6.R
  Saving _problems/test_get_metadata-12.R
  Saving _problems/test_get_metadata-16.R
  Saving _problems/test_get_time_series-4.R
  Saving _problems/test_get_time_series-24.R
  Saving _problems/test_list_collections-4.R
  Saving _problems/test_list_keys-5.R
  [ FAIL 9 | WARN 0 | SKIP 6 | PASS 6 ]
  
  ══ Skipped tests (6) ═══════════════════════════════════════════════════════════
  • nchar(apikey) == 0 is TRUE (6): 'test_get_collection.R:13:3',
    'test_get_remaining_quota.R:6:3', 'test_get_time_series.R:13:3',
    'test_list_cached_files.R:6:3', 'test_list_collections.R:20:3',
    'test_list_keys.R:22:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_get_collection.R:4:3'): get_collection works for public collection ──
  Error in `content(response, as = "text")`: is.response(x) is not TRUE
  Backtrace:
      ▆
   1. └─kofdata::get_collection("baro_vintages_monthly") at test_get_collection.R:4:3
   2.   ├─jsonlite::fromJSON(content(response, as = "text"))
   3.   └─httr::content(response, as = "text")
   4.     └─base::stopifnot(is.response(x))
  ── Failure ('test_get_collection.R:23:3'): get_collection errors with invalid set ──
  `get_collection("some_nonexistent_set")` threw an error with unexpected message.
  Expected match: "The API responded"
  Actual message: "is.response(x) is not TRUE"
  Backtrace:
      ▆
   1. ├─testthat::expect_error(...) at test_get_collection.R:23:3
   2. │ └─testthat:::quasi_capture(...)
   3. │   ├─testthat (local) .capture(...)
   4. │   │ └─base::withCallingHandlers(...)
   5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   6. └─kofdata::get_collection("some_nonexistent_set")
   7.   ├─jsonlite::fromJSON(content(response, as = "text"))
   8.   └─httr::content(response, as = "text")
   9.     └─base::stopifnot(is.response(x))
  ── Error ('test_get_metadata.R:4:3'): get_metadata works ───────────────────────
  Error: lexical error: invalid char in json text.
                                         <html>  <head><title>503 Servic
                       (right here) ------^
  
  Backtrace:
      ▆
   1. └─kofdata::get_metadata(...) at test_get_metadata.R:4:3
   2.   └─jsonlite::fromJSON(content(response, as = "text"))
   3.     └─jsonlite:::parse_and_simplify(...)
   4.       └─jsonlite:::parseJSON(txt, bigint_as_char)
   5.         └─jsonlite:::parse_string(txt, bigint_as_char)
  ── Error ('test_get_metadata.R:12:3'): get_metadata returns NA for nonexistent keys ──
  Error: lexical error: invalid char in json text.
                                         <html>  <head><title>503 Servic
                       (right here) ------^
  
  Backtrace:
      ▆
   1. ├─testthat::expect_true(is.na(get_metadata("nokey")[["nokey"]])) at test_get_metadata.R:12:3
   2. │ └─testthat::quasi_label(enquo(object), label)
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─kofdata::get_metadata("nokey")
   5.   └─jsonlite::fromJSON(content(response, as = "text"))
   6.     └─jsonlite:::parse_and_simplify(...)
   7.       └─jsonlite:::parseJSON(txt, bigint_as_char)
   8.         └─jsonlite:::parse_string(txt, bigint_as_char)
  ── Error ('test_get_metadata.R:16:3'): get_metadata returns a list ─────────────
  Error: lexical error: invalid char in json text.
                                         <html>  <head><title>503 Servic
                       (right here) ------^
  
  Backtrace:
      ▆
   1. ├─testthat::expect_is(...) at test_get_metadata.R:16:3
   2. │ └─testthat::quasi_label(enquo(object), label)
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─kofdata::get_metadata("ch.kof.inu.ng08.fx.sector_kof.cm.q_ql_chg_price_sales_p3m.share_eq")
   5.   └─jsonlite::fromJSON(content(response, as = "text"))
   6.     └─jsonlite:::parse_and_simplify(...)
   7.       └─jsonlite:::parseJSON(txt, bigint_as_char)
   8.         └─jsonlite:::parse_string(txt, bigint_as_char)
  ── Error ('test_get_time_series.R:4:3'): get_time_series works for public series ──
  Error in `content(response, as = "text")`: is.response(x) is not TRUE
  Backtrace:
      ▆
   1. └─kofdata::get_time_series("kofbarometer", show_progress = F) at test_get_time_series.R:4:3
   2.   ├─jsonlite::fromJSON(content(response, as = "text"))
   3.   └─httr::content(response, as = "text")
   4.     └─base::stopifnot(is.response(x))
  ── Failure ('test_get_time_series.R:24:3'): get_time_series errors on invalid key ──
  `get_time_series("some_nonexistent_key", show_progress = F)` threw an error with unexpected message.
  Expected match: "The API responded"
  Actual message: "is.response(x) is not TRUE"
  Backtrace:
      ▆
   1. ├─testthat::expect_error(...) at test_get_time_series.R:24:3
   2. │ └─testthat:::quasi_capture(...)
   3. │   ├─testthat (local) .capture(...)
   4. │   │ └─base::withCallingHandlers(...)
   5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   6. └─kofdata::get_time_series("some_nonexistent_key", show_progress = F)
   7.   ├─jsonlite::fromJSON(content(response, as = "text"))
   8.   └─httr::content(response, as = "text")
   9.     └─base::stopifnot(is.response(x))
  ── Error ('test_list_collections.R:4:3'): list_available_collections works ─────
  Error in `list_available_collections()`: An error occurred when calling the api:
  Status: 503
  Content:<html>
  <head><title>503 Service Temporarily Unavailable</title></head>
  <body>
  <center><h1>503 Service Temporarily Unavailable</h1></center>
  <hr><center>nginx</center>
  </body>
  </html>
  
  Backtrace:
      ▆
   1. └─kofdata::list_available_collections() at test_list_collections.R:4:3
  ── Error ('test_list_keys.R:5:3'): list_keys_in_collection works ───────────────
  Error in `list_available_collections()`: An error occurred when calling the api:
  Status: 503
  Content:<html>
  <head><title>503 Service Temporarily Unavailable</title></head>
  <body>
  <center><h1>503 Service Temporarily Unavailable</h1></center>
  <hr><center>nginx</center>
  </body>
  </html>
  
  Backtrace:
      ▆
   1. └─kofdata::list_available_collections() at test_list_keys.R:5:3
  
  [ FAIL 9 | WARN 0 | SKIP 6 | PASS 6 ]
  Error:
  ! Test failures.
  Execution halted