Running ‘testthat.R’ [12s/250s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library("testthat")
  > library("rnrfa")
  > library("lintr")
  > 
  > if (!curl::has_internet()) {
  +   message("No internet, cannot run tests")
  + }else {
  +   test_check("rnrfa")
  + }
  [ FAIL 13 | WARN 0 | SKIP 0 | PASS 29 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-catalogue.R:5'): Output of catalogue function is expected to be at least 1539x20 ──
  Error in `curl::curl_fetch_memory(url, handle = handle)`: Timeout was reached: [nrfaapps.ceh.ac.uk] Resolving timed out after 10000 milliseconds
  Backtrace:
      ▆
   1. └─rnrfa::catalogue() at test-catalogue.R:5:2
   2.   └─rnrfa:::nrfa_api(webservice = "station-info", parameters)
   3.     └─httr::GET(url = url, query = parameters, ua)
   4.       └─httr:::request_perform(req, hu$handle$handle)
   5.         ├─httr:::request_fetch(req$output, req$url, handle)
   6.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   7.           └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-catalogue.R:12'): Check output of catalogue for Plynlimon area ──
  Error in `curl::curl_fetch_memory(url, handle = handle)`: Timeout was reached: [nrfaapps.ceh.ac.uk] Resolving timed out after 10000 milliseconds
  Backtrace:
       ▆
    1. ├─testthat::expect_that(...) at test-catalogue.R:12:2
    2. │ └─testthat (local) condition(object)
    3. │   └─testthat::expect_equal(x, expected, ..., expected.label = label)
    4. │     └─testthat::quasi_label(enquo(object), label, arg = "object")
    5. │       └─rlang::eval_bare(expr, quo_get_env(quo))
    6. └─rnrfa::catalogue(...)
    7.   └─rnrfa:::nrfa_api(webservice = "station-info", parameters)
    8.     └─httr::GET(url = url, query = parameters, ua)
    9.       └─httr:::request_perform(req, hu$handle$handle)
   10.         ├─httr:::request_fetch(req$output, req$url, handle)
   11.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   12.           └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-catalogue.R:20'): Check output of catalogue for minimum records of 100 years ──
  Error in `curl::curl_fetch_memory(url, handle = handle)`: Timeout was reached: [nrfaapps.ceh.ac.uk] Resolving timed out after 10000 milliseconds
  Backtrace:
      ▆
   1. └─rnrfa::catalogue(min_rec = 100) at test-catalogue.R:20:2
   2.   └─rnrfa:::nrfa_api(webservice = "station-info", parameters)
   3.     └─httr::GET(url = url, query = parameters, ua)
   4.       └─httr:::request_perform(req, hu$handle$handle)
   5.         ├─httr:::request_fetch(req$output, req$url, handle)
   6.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   7.           └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-catalogue.R:40'): Check the catalogue function filters based on column values ──
  Error in `curl::curl_fetch_memory(url, handle = handle)`: Timeout was reached: [nrfaapps.ceh.ac.uk] Resolving timed out after 10000 milliseconds
  Backtrace:
      ▆
   1. └─rnrfa::catalogue(column_name = "river", column_value = "Wye") at test-catalogue.R:40:2
   2.   └─rnrfa:::nrfa_api(webservice = "station-info", parameters)
   3.     └─httr::GET(url = url, query = parameters, ua)
   4.       └─httr:::request_perform(req, hu$handle$handle)
   5.         ├─httr:::request_fetch(req$output, req$url, handle)
   6.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   7.           └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-cmr.R:5'): Output of cmr function for single station ───────────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: Timeout was reached: [nrfaapps.ceh.ac.uk] Resolving timed out after 10000 milliseconds
  Backtrace:
       ▆
    1. └─rnrfa::cmr(id = 18019, metadata = FALSE, cl = NULL) at test-cmr.R:5:2
    2.   └─rnrfa::get_ts(id, type = "cmr", metadata, cl, verbose)
    3.     ├─base::unlist(...)
    4.     └─rnrfa:::get_ts_internal(...)
    5.       └─rnrfa:::nrfa_api(webservice = "time-series", parameters)
    6.         └─httr::GET(url = url, query = parameters, ua)
    7.           └─httr:::request_perform(req, hu$handle$handle)
    8.             ├─httr:::request_fetch(req$output, req$url, handle)
    9.             └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   10.               └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-cmr.R:18'): Output of cmr function for multiple stations ───────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: Timeout was reached: [nrfaapps.ceh.ac.uk] Resolving timed out after 10000 milliseconds
  Backtrace:
       ▆
    1. └─rnrfa::cmr(id = ids, metadata = FALSE, cl = NULL) at test-cmr.R:18:2
    2.   └─rnrfa::get_ts(id, type = "cmr", metadata, cl, verbose)
    3.     └─base::lapply(...)
    4.       └─rnrfa (local) FUN(X[[i]], ...)
    5.         └─rnrfa:::nrfa_api(webservice = "time-series", parameters)
    6.           └─httr::GET(url = url, query = parameters, ua)
    7.             └─httr:::request_perform(req, hu$handle$handle)
    8.               ├─httr:::request_fetch(req$output, req$url, handle)
    9.               └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   10.                 └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-gdf.R:6'): Output of gdf function for id 18019 ─────────────────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: Timeout was reached: [nrfaapps.ceh.ac.uk] Resolving timed out after 10000 milliseconds
  Backtrace:
       ▆
    1. └─rnrfa::gdf(id = 18019, metadata = FALSE, cl = NULL) at test-gdf.R:6:2
    2.   └─rnrfa::get_ts(id, type = "gdf", metadata, cl)
    3.     ├─base::unlist(...)
    4.     └─rnrfa:::get_ts_internal(...)
    5.       └─rnrfa:::nrfa_api(webservice = "time-series", parameters)
    6.         └─httr::GET(url = url, query = parameters, ua)
    7.           └─httr:::request_perform(req, hu$handle$handle)
    8.             ├─httr:::request_fetch(req$output, req$url, handle)
    9.             └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   10.               └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-gdf.R:24'): get_ts gdf works in parallel ───────────────────────
  Error in `checkForRemoteErrors(val)`: one node produced an error: Timeout was reached: [nrfaapps.ceh.ac.uk] Resolving timed out after 10000 milliseconds
  Backtrace:
      ▆
   1. └─rnrfa::gdf(id = c(54022, 54090, 54091), cl = cl) at test-gdf.R:24:2
   2.   └─rnrfa::get_ts(id, type = "gdf", metadata, cl)
   3.     └─parallel::parLapply(...)
   4.       ├─base::do.call(...)
   5.       └─parallel::clusterApply(...)
   6.         └─parallel:::staticClusterApply(cl, fun, length(x), argfun)
   7.           └─parallel:::checkForRemoteErrors(val)
  ── Error ('test-get_ts.R:8'): Check get_ts fails (gracefully) when it should ───
  Error in `curl::curl_fetch_memory(url, handle = handle)`: Timeout was reached: [nrfaapps.ceh.ac.uk] Resolving timed out after 10000 milliseconds
  Backtrace:
      ▆
   1. └─rnrfa::get_ts(id = 0, type = "cmr") at test-get_ts.R:8:2
   2.   ├─base::unlist(...)
   3.   └─rnrfa:::get_ts_internal(...)
   4.     └─rnrfa:::nrfa_api(webservice = "time-series", parameters)
   5.       └─httr::GET(url = url, query = parameters, ua)
   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)
  ── Error ('test-get_ts.R:18'): get_ts cmr single works ─────────────────────────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: Timeout was reached: [nrfaapps.ceh.ac.uk] Resolving timed out after 10000 milliseconds
  Backtrace:
      ▆
   1. └─rnrfa::get_ts(id = 18019, type = "cmr") at test-get_ts.R:18:2
   2.   ├─base::unlist(...)
   3.   └─rnrfa:::get_ts_internal(...)
   4.     └─rnrfa:::nrfa_api(webservice = "time-series", parameters)
   5.       └─httr::GET(url = url, query = parameters, ua)
   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)
  ── Error ('test-get_ts.R:26'): get_ts cmr multi works ──────────────────────────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: Timeout was reached: [nrfaapps.ceh.ac.uk] Resolving timed out after 10000 milliseconds
  Backtrace:
      ▆
   1. └─rnrfa::get_ts(id = c(54022, 54090, 54091), type = "cmr") at test-get_ts.R:26:2
   2.   └─base::lapply(...)
   3.     └─rnrfa (local) FUN(X[[i]], ...)
   4.       └─rnrfa:::nrfa_api(webservice = "time-series", parameters)
   5.         └─httr::GET(url = url, query = parameters, ua)
   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)
  ── Error ('test-get_ts.R:37'): get_ts gdf single works ─────────────────────────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: Timeout was reached: [nrfaapps.ceh.ac.uk] Resolving timed out after 10000 milliseconds
  Backtrace:
      ▆
   1. └─rnrfa::get_ts(id = 18019, type = "gdf") at test-get_ts.R:37:2
   2.   ├─base::unlist(...)
   3.   └─rnrfa:::get_ts_internal(...)
   4.     └─rnrfa:::nrfa_api(webservice = "time-series", parameters)
   5.       └─httr::GET(url = url, query = parameters, ua)
   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)
  ── Error ('test-get_ts.R:46'): get_ts gdf multi works ──────────────────────────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: Timeout was reached: [nrfaapps.ceh.ac.uk] Resolving timed out after 10000 milliseconds
  Backtrace:
      ▆
   1. └─rnrfa::get_ts(id = c(54022, 54090, 54091), type = "gdf") at test-get_ts.R:46:2
   2.   └─base::lapply(...)
   3.     └─rnrfa (local) FUN(X[[i]], ...)
   4.       └─rnrfa:::nrfa_api(webservice = "time-series", parameters)
   5.         └─httr::GET(url = url, query = parameters, ua)
   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)
  
  [ FAIL 13 | WARN 0 | SKIP 0 | PASS 29 ]
  Error: Test failures
  Execution halted