Running ‘testthat.R’ [2s/293s]
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")
  [ FAIL 8 | WARN 0 | SKIP 0 | PASS 10 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure (test_get_dataset.R:4:3): get_dataset works ─────────────────────────
  `get_dataset("some_nonexistent_set")` threw an error with unexpected message.
  Expected match: "The API responded"
  Actual message: "Timeout was reached: [datenservice.kof.ethz.ch] Resolving timed out after 10000 milliseconds"
  Backtrace:
       ▆
    1. ├─testthat::expect_error(get_dataset("some_nonexistent_set"), "The API responded") at test_get_dataset.R:4:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─kofdata::get_dataset("some_nonexistent_set")
    7.   └─httr::GET(url, query = query)
    8.     └─httr:::request_perform(req, hu$handle$handle)
    9.       ├─httr:::request_fetch(req$output, req$url, handle)
   10.       └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   11.         └─curl::curl_fetch_memory(url, handle = handle)
  ── Failure (test_get_dataset.R:5:3): get_dataset works ─────────────────────────
  `get_dataset("set_doesnt_matter", "GandalfTheGray")` threw an error with unexpected message.
  Expected match: "Could not authenticate."
  Actual message: "Timeout was reached: [datenservice.kof.ethz.ch] Resolving timed out after 10000 milliseconds"
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test_get_dataset.R:5:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─kofdata::get_dataset("set_doesnt_matter", "GandalfTheGray")
    7.   └─httr::GET(url, query = query)
    8.     └─httr:::request_perform(req, hu$handle$handle)
    9.       ├─httr:::request_fetch(req$output, req$url, handle)
   10.       └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   11.         └─curl::curl_fetch_memory(url, handle = handle)
  ── Error (test_get_dataset.R:7:3): get_dataset works ───────────────────────────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: Timeout was reached: [datenservice.kof.ethz.ch] Resolving timed out after 10000 milliseconds
  Backtrace:
      ▆
   1. └─kofdata::get_dataset("baro_vintages_monthly") at test_get_dataset.R:7:2
   2.   └─httr::GET(url, query = query)
   3.     └─httr:::request_perform(req, hu$handle$handle)
   4.       ├─httr:::request_fetch(req$output, req$url, handle)
   5.       └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   6.         └─curl::curl_fetch_memory(url, handle = handle)
  ── Error (test_get_metadata.R:4:3): get_metadata works ─────────────────────────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: Timeout was reached: [datenservice.kof.ethz.ch] Resolving timed out after 10000 milliseconds
  Backtrace:
      ▆
   1. ├─testthat::expect_true(is.na(get_metadata("nokey")[["nokey"]])) at test_get_metadata.R:4:2
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─kofdata::get_metadata("nokey")
   5.   └─httr::GET(url, query = query)
   6.     └─httr:::request_perform(req, hu$handle$handle)
   7.       ├─httr:::request_fetch(req$output, req$url, handle)
   8.       └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   9.         └─curl::curl_fetch_memory(url, handle = handle)
  ── Failure (test_get_remaining_quota.R:4:3): get_remaining_quota works ─────────
  `get_remaining_quota("some_nonexistent_key")` threw an error with unexpected message.
  Expected match: "The API returned a status code of"
  Actual message: "Timeout was reached: [datenservice.kof.ethz.ch] Resolving timed out after 10000 milliseconds"
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test_get_remaining_quota.R:4:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─kofdata::get_remaining_quota("some_nonexistent_key")
    7.   └─httr::GET(...)
    8.     └─httr:::request_perform(req, hu$handle$handle)
    9.       ├─httr:::request_fetch(req$output, req$url, handle)
   10.       └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   11.         └─curl::curl_fetch_memory(url, handle = handle)
  ── Failure (test_get_time_series.R:4:3): get_time_series works ─────────────────
  `get_time_series("some_nonexistent_key", show_progress = F)` threw an error with unexpected message.
  Expected match: "The API responded"
  Actual message: "Timeout was reached: [datenservice.kof.ethz.ch] Resolving timed out after 10000 milliseconds"
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test_get_time_series.R:4:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat .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.   └─httr::GET(url, query = query)
    8.     └─httr:::request_perform(req, hu$handle$handle)
    9.       ├─httr:::request_fetch(req$output, req$url, handle)
   10.       └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   11.         └─curl::curl_fetch_memory(url, handle = handle)
  ── Failure (test_get_time_series.R:5:3): get_time_series works ─────────────────
  `get_time_series("key_doesnt_matter", "GandalfTheGray", show_progress = F)` threw an error with unexpected message.
  Expected match: "Could not authenticate."
  Actual message: "Timeout was reached: [datenservice.kof.ethz.ch] Resolving timed out after 10000 milliseconds"
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test_get_time_series.R:5:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─kofdata::get_time_series(...)
    7.   └─httr::GET(url, query = query)
    8.     └─httr:::request_perform(req, hu$handle$handle)
    9.       ├─httr:::request_fetch(req$output, req$url, handle)
   10.       └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   11.         └─curl::curl_fetch_memory(url, handle = handle)
  ── Error (test_get_time_series.R:7:3): get_time_series works ───────────────────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: Timeout was reached: [datenservice.kof.ethz.ch] Resolving timed out after 10000 milliseconds
  Backtrace:
      ▆
   1. └─kofdata::get_time_series("kofbarometer", show_progress = F) at test_get_time_series.R:7:2
   2.   └─httr::GET(url, query = query)
   3.     └─httr:::request_perform(req, hu$handle$handle)
   4.       ├─httr:::request_fetch(req$output, req$url, handle)
   5.       └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   6.         └─curl::curl_fetch_memory(url, handle = handle)
  
  [ FAIL 8 | WARN 0 | SKIP 0 | PASS 10 ]
  Error: Test failures
  Execution halted