Running ‘testthat.R’ [5s/14s]
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")
  + }
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure (test-catalogue.R:6:3): Output of catalogue function is expected to be at least 1539x20 ──
  `x` not equal to `expected`.
  2 element mismatches
  Backtrace:
      █
   1. └─testthat::expect_that(...) test-catalogue.R:6:2
   2.   └─testthat:::condition(object)
   3.     └─testthat::expect_equal(x, expected, ..., expected.label = label)
  ── Failure (test-catalogue.R:12:3): Check output of catalogue for Plynlimon area ──
  `x` not equal to `expected`.
  1/1 mismatches
  [1] 0 - 9 == -9
  Backtrace:
      █
   1. └─testthat::expect_that(...) test-catalogue.R:12:2
   2.   └─testthat:::condition(object)
   3.     └─testthat::expect_equal(x, expected, ..., expected.label = label)
  ── Failure (test-catalogue.R:22:3): Check output of catalogue for minimum records of 100 years ──
  `x` not equal to `expected`.
  1 element mismatch
  Backtrace:
      █
   1. └─testthat::expect_that(...) test-catalogue.R:22:2
   2.   └─testthat:::condition(object)
   3.     └─testthat::expect_equal(x, expected, ..., expected.label = label)
  ── Failure (test-catalogue.R:41:3): Check the catalogue function filters based on column values ──
  dim(x)[1] >= 11 is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure (test-catalogue.R:44:3): Check the catalogue function filters based on column values ──
  dim(x)[1] >= 114 is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure (test-catalogue.R:47:3): Check the catalogue function filters based on column values ──
  dim(x)[1] >= 113 is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Error (test-cmr.R:5:3): Output of cmr function for single station ───────────
  Error: Empty data-stream
  Backtrace:
      █
   1. └─rnrfa::cmr(id = 18019, metadata = FALSE, cl = NULL) test-cmr.R:5:2
   2.   └─rnrfa::get_ts(id, type = "cmr", metadata, cl, verbose)
   3.     ├─base::unlist(get_ts_internal(id, type, metadata, verbose, full_info))
   4.     └─rnrfa:::get_ts_internal(id, type, metadata, verbose, full_info)
  ── Error (test-cmr.R:18:3): Output of cmr function for multiple stations ───────
  Error: Empty data-stream
  Backtrace:
      █
   1. └─rnrfa::cmr(id = ids, metadata = FALSE, cl = NULL) test-cmr.R:18:2
   2.   └─rnrfa::get_ts(id, type = "cmr", metadata, cl, verbose)
   3.     └─base::lapply(...)
   4.       └─rnrfa:::FUN(X[[i]], ...)
  ── Error (test-gdf.R:6:3): Output of gdf function for id 18019 ─────────────────
  Error: Empty data-stream
  Backtrace:
      █
   1. └─rnrfa::gdf(id = 18019, metadata = FALSE, cl = NULL, verbose = FALSE) test-gdf.R:6:2
   2.   └─rnrfa::get_ts(id, type = "gdf", metadata, cl, verbose)
   3.     ├─base::unlist(get_ts_internal(id, type, metadata, verbose, full_info))
   4.     └─rnrfa:::get_ts_internal(id, type, metadata, verbose, full_info)
  ── Error (test-gdf.R:24:3): get_ts gdf works in parallel ───────────────────────
  Error: one node produced an error: Empty data-stream
  Backtrace:
      █
   1. └─rnrfa::gdf(id = c(54022, 54090, 54091), cl = cl) test-gdf.R:24:2
   2.   └─rnrfa::get_ts(id, type = "gdf", metadata, cl, verbose)
   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:18:3): get_ts cmr single works ─────────────────────────
  Error: Empty data-stream
  Backtrace:
      █
   1. └─rnrfa::get_ts(id = 18019, type = "cmr") test-get_ts.R:18:2
   2.   ├─base::unlist(get_ts_internal(id, type, metadata, verbose, full_info))
   3.   └─rnrfa:::get_ts_internal(id, type, metadata, verbose, full_info)
  ── Error (test-get_ts.R:26:3): get_ts cmr multi works ──────────────────────────
  Error: Empty data-stream
  Backtrace:
      █
   1. └─rnrfa::get_ts(id = c(54022, 54090, 54091), type = "cmr") test-get_ts.R:26:2
   2.   └─base::lapply(...)
   3.     └─rnrfa:::FUN(X[[i]], ...)
  ── Error (test-get_ts.R:37:3): get_ts gdf single works ─────────────────────────
  Error: Empty data-stream
  Backtrace:
      █
   1. └─rnrfa::get_ts(id = 18019, type = "gdf") test-get_ts.R:37:2
   2.   ├─base::unlist(get_ts_internal(id, type, metadata, verbose, full_info))
   3.   └─rnrfa:::get_ts_internal(id, type, metadata, verbose, full_info)
  ── Error (test-get_ts.R:46:3): get_ts gdf multi works ──────────────────────────
  Error: Empty data-stream
  Backtrace:
      █
   1. └─rnrfa::get_ts(id = c(54022, 54090, 54091), type = "gdf") test-get_ts.R:46:2
   2.   └─base::lapply(...)
   3.     └─rnrfa:::FUN(X[[i]], ...)
  ── Error (test-get_ts.R:60:3): Check get_ts works with other types ─────────────
  Error: Empty data-stream
  Backtrace:
      █
   1. └─rnrfa::get_ts(id = 43010, type = "amax-flow") test-get_ts.R:60:2
   2.   ├─base::unlist(get_ts_internal(id, type, metadata, verbose, full_info))
   3.   └─rnrfa:::get_ts_internal(id, type, metadata, verbose, full_info)
  ── Error (test-seasonal_averages.R:5:3): seasonal_averages works ───────────────
  Error: Empty data-stream
  Backtrace:
      █
   1. ├─rnrfa::seasonal_averages(timeseries = cmr(18019), season = "Spring") test-seasonal_averages.R:5:2
   2. │ └─base::as.list(timeseries)
   3. └─rnrfa::cmr(18019)
   4.   └─rnrfa::get_ts(id, type = "cmr", metadata, cl, verbose)
   5.     ├─base::unlist(get_ts_internal(id, type, metadata, verbose, full_info))
   6.     └─rnrfa:::get_ts_internal(id, type, metadata, verbose, full_info)
  ── Failure (test-station_ids.R:5:3): station_ids works ─────────────────────────
  length(x) >= 1580 not equal to TRUE.
  1 element mismatch
  
  [ FAIL 17 | WARN 0 | SKIP 0 | PASS 16 ]
  Error: Test failures
  Execution halted