Running ‘testthat.R’ [9s/17s]
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 37 | WARN 0 | SKIP 0 | PASS 25 ]
  
  ══ 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(...) at test-catalogue.R:6:3
   2.   └─testthat (local) 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(...) at test-catalogue.R:12:3
   2.   └─testthat (local) 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(...) at test-catalogue.R:22:3
   2.   └─testthat (local) 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] >= 110 is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-cmr.R:6:3'): Output of cmr function for single station ───────
  length(x) >= 660 is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-cmr.R:9:3'): Output of cmr function for single station ───────
  `x` not equal to `expected`.
  1 element mismatch
  Backtrace:
      ▆
   1. └─testthat::expect_that(length(x) == 2, equals(TRUE)) at test-cmr.R:9:3
   2.   └─testthat (local) condition(object)
   3.     └─testthat::expect_equal(x, expected, ..., expected.label = label)
  ── Failure ('test-cmr.R:10:3'): Output of cmr function for single station ──────
  `x` not equal to `expected`.
  Lengths (0, 1) differ (comparison on first 0 components)
  Backtrace:
      ▆
   1. └─testthat::expect_that(...) at test-cmr.R:10:3
   2.   └─testthat (local) condition(object)
   3.     └─testthat::expect_equal(x, expected, ..., expected.label = label)
  ── Failure ('test-cmr.R:25:3'): Output of cmr function for multiple stations ───
  `x` not equal to `expected`.
  1 element mismatch
  Backtrace:
      ▆
   1. └─testthat::expect_that(length(x[[1]]) == 2, equals(TRUE)) at test-cmr.R:25:3
   2.   └─testthat (local) condition(object)
   3.     └─testthat::expect_equal(x, expected, ..., expected.label = label)
  ── Failure ('test-gdf.R:7:3'): Output of gdf function for id 18019 ─────────────
  "zoo" %in% class(x1) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-gdf.R:11:3'): Output of gdf function for id 18019 ────────────
  "list" %in% class(x2) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-gdf.R:12:3'): Output of gdf function for id 18019 ────────────
  length(x2) not equal to 2.
  1/1 mismatches
  [1] 0 - 2 == -2
  ── Failure ('test-get_ts.R:19:3'): get_ts cmr single works ─────────────────────
  class(rain) == "zoo" is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-get_ts.R:20:3'): get_ts cmr single works ─────────────────────
  length(rain) >= 660 is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-get_ts.R:28:3'): get_ts cmr multi works ──────────────────────
  class(rain[[1]]) == "zoo" is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-get_ts.R:29:3'): get_ts cmr multi works ──────────────────────
  length(rain[[1]]) >= 756 is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-get_ts.R:30:3'): get_ts cmr multi works ──────────────────────
  length(rain[[2]]) >= 660 is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-get_ts.R:31:3'): get_ts cmr multi works ──────────────────────
  length(rain[[3]]) >= 660 is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-get_ts.R:38:3'): get_ts gdf single works ─────────────────────
  class(flow) == "zoo" is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-get_ts.R:39:3'): get_ts gdf single works ─────────────────────
  as.numeric(flow[1]) not equal to 0.056.
  Lengths differ: 0 is not 1
  ── Failure ('test-get_ts.R:40:3'): get_ts gdf single works ─────────────────────
  length(flow) >= 731 is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-get_ts.R:48:3'): get_ts gdf multi works ──────────────────────
  class(flow[[1]]) == "zoo" is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-get_ts.R:49:3'): get_ts gdf multi works ──────────────────────
  as.numeric(flow[[1]][1]) not equal to 0.637.
  Lengths differ: 0 is not 1
  ── Failure ('test-get_ts.R:50:3'): get_ts gdf multi works ──────────────────────
  length(flow[[1]]) >= 16855 is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-get_ts.R:51:3'): get_ts gdf multi works ──────────────────────
  as.numeric(flow[[2]][1]) not equal to 0.031.
  Lengths differ: 0 is not 1
  ── Failure ('test-get_ts.R:52:3'): get_ts gdf multi works ──────────────────────
  length(flow[[2]]) >= 13159 is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-get_ts.R:53:3'): get_ts gdf multi works ──────────────────────
  as.numeric(flow[[3]][1]) not equal to 1.262.
  Lengths differ: 0 is not 1
  ── Failure ('test-get_ts.R:54:3'): get_ts gdf multi works ──────────────────────
  length(flow[[3]]) >= 12416 is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-get_ts.R:61:3'): Check get_ts works with other types ─────────
  class(x1) == "zoo" is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-get_ts.R:63:3'): Check get_ts works with other types ─────────
  class(x1) == "zoo" is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-get_ts.R:65:3'): Check get_ts works with other types ─────────
  table(x1$rejected[1:37]) not equal to structure(...).
  names for current but not for target
  Attributes: < Component "dim": Mean absolute difference: 2 >
  Attributes: < Component "dimnames": Component "": target is NULL, current is character >
  Numeric: lengths (0, 2) differ
  ── Failure ('test-get_ts.R:71:3'): Check get_ts works with other types ─────────
  class(x2) == "zoo" is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-get_ts.R:72:3'): Check get_ts works with other types ─────────
  table(x2$rejected[1:11]) not equal to structure(...).
  names for current but not for target
  Attributes: < Component "dim": Mean absolute difference: 2 >
  Attributes: < Component "dimnames": Component "": target is NULL, current is character >
  Numeric: lengths (0, 2) differ
  ── Failure ('test-get_ts.R:77:3'): Check get_ts works with other types ─────────
  table(x3$rejected[1:176]) not equal to structure(...).
  names for current but not for target
  Attributes: < Component "dim": Mean absolute difference: 1 >
  Attributes: < Component "dimnames": Component "": target is NULL, current is character >
  Numeric: lengths (0, 1) differ
  ── Error ('test-seasonal_averages.R:5:3'): seasonal_averages works ─────────────
  Error in `seasonal_averages(timeseries = cmr(18019), season = "Spring")`: object 'tslist' not found
  Backtrace:
      ▆
   1. └─rnrfa::seasonal_averages(timeseries = cmr(18019), season = "Spring") at test-seasonal_averages.R:5:3
  ── Failure ('test-station_ids.R:5:3'): station_ids works ───────────────────────
  length(x) >= 1580 not equal to TRUE.
  1 element mismatch
  
  [ FAIL 37 | WARN 0 | SKIP 0 | PASS 25 ]
  Error: Test failures
  Execution halted