Running ‘testthat.R’ [5s/13s]
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")
  + }
  ── 1. Error: Output of catalogue function is expected to be at least 1539x20 (@t
  NRFA API request failed [500]
  Backtrace:
   1. rnrfa::catalogue()
   2. rnrfa:::nrfa_api(webservice = "station-info", parameters)
  
  ── 2. Error: Check output of catalogue for Plynlimon area (@test-catalogue.R#12)
  NRFA API request failed [500]
  Backtrace:
   1. testthat::expect_that(...)
   6. rnrfa::catalogue(...)
   7. rnrfa:::nrfa_api(webservice = "station-info", parameters)
  
  ── 3. Error: Check output of catalogue for minimum records of 100 years (@test-c
  NRFA API request failed [500]
  Backtrace:
   1. rnrfa::catalogue(min_rec = 100)
   2. rnrfa:::nrfa_api(webservice = "station-info", parameters)
  
  ── 4. Error: Check the catalogue function filters based on column values (@test-
  NRFA API request failed [500]
  Backtrace:
   1. rnrfa::catalogue(column_name = "river", column_value = "Wye")
   2. rnrfa:::nrfa_api(webservice = "station-info", parameters)
  
  ── 5. Error: Output of cmr function for single station (@test-cmr.R#5)  ────────
  NRFA API request failed [500]
  Backtrace:
   1. rnrfa::cmr(id = 18019, metadata = FALSE, cl = NULL)
   2. rnrfa::get_ts(id, type = "cmr", metadata, cl, verbose)
   4. rnrfa:::get_ts_internal(id, type, metadata, verbose, full_info)
   5. rnrfa:::nrfa_api(webservice = "time-series", parameters)
  
  ── 6. Error: Output of cmr function for multiple stations (@test-cmr.R#18)  ────
  NRFA API request failed [500]
  Backtrace:
   1. rnrfa::cmr(id = ids, metadata = FALSE, cl = NULL)
   2. rnrfa::get_ts(id, type = "cmr", metadata, cl, verbose)
   3. base::lapply(...)
   4. rnrfa:::FUN(X[[i]], ...)
   5. rnrfa:::nrfa_api(webservice = "time-series", parameters)
  
  ── 7. Error: Output of gdf function for id 18019 (@test-gdf.R#6)  ──────────────
  NRFA API request failed [500]
  Backtrace:
   1. rnrfa::gdf(id = 18019, metadata = FALSE, cl = NULL, verbose = FALSE)
   2. rnrfa::get_ts(id, type = "gdf", metadata, cl, verbose)
   4. rnrfa:::get_ts_internal(id, type, metadata, verbose, full_info)
   5. rnrfa:::nrfa_api(webservice = "time-series", parameters)
  
  ── 8. Error: get_ts gdf works in parallel (@test-gdf.R#22)  ────────────────────
  one node produced an error: NRFA API request failed [500]
  Backtrace:
   1. rnrfa::gdf(id = c(54022, 54090, 54091), cl = cl)
   2. rnrfa::get_ts(id, type = "gdf", metadata, cl, verbose)
   3. parallel::parLapply(...)
   5. parallel::clusterApply(...)
   6. parallel:::staticClusterApply(cl, fun, length(x), argfun)
   7. parallel:::checkForRemoteErrors(val)
  
  ── 9. Error: get_ts cmr single works (@test-get_ts.R#18)  ──────────────────────
  NRFA API request failed [500]
  Backtrace:
   1. rnrfa::get_ts(id = 18019, type = "cmr")
   3. rnrfa:::get_ts_internal(id, type, metadata, verbose, full_info)
   4. rnrfa:::nrfa_api(webservice = "time-series", parameters)
  
  ── 10. Error: get_ts cmr multi works (@test-get_ts.R#26)  ──────────────────────
  NRFA API request failed [500]
  Backtrace:
   1. rnrfa::get_ts(id = c(54022, 54090, 54091), type = "cmr")
   2. base::lapply(...)
   3. rnrfa:::FUN(X[[i]], ...)
   4. rnrfa:::nrfa_api(webservice = "time-series", parameters)
  
  ── 11. Error: get_ts gdf single works (@test-get_ts.R#37)  ─────────────────────
  NRFA API request failed [500]
  Backtrace:
   1. rnrfa::get_ts(id = 18019, type = "gdf")
   3. rnrfa:::get_ts_internal(id, type, metadata, verbose, full_info)
   4. rnrfa:::nrfa_api(webservice = "time-series", parameters)
  
  ── 12. Error: get_ts gdf multi works (@test-get_ts.R#46)  ──────────────────────
  NRFA API request failed [500]
  Backtrace:
   1. rnrfa::get_ts(id = c(54022, 54090, 54091), type = "gdf")
   2. base::lapply(...)
   3. rnrfa:::FUN(X[[i]], ...)
   4. rnrfa:::nrfa_api(webservice = "time-series", parameters)
  
  ── 13. Error: Check get_ts works with other types (@test-get_ts.R#60)  ─────────
  NRFA API request failed [500]
  Backtrace:
   1. rnrfa::get_ts(id = 43010, type = "amax-flow")
   3. rnrfa:::get_ts_internal(id, type, metadata, verbose, full_info)
   4. rnrfa:::nrfa_api(webservice = "time-series", parameters)
  
  ── 14. Error: seasonal_averages works (@test-seasonal_averages.R#5)  ───────────
  NRFA API request failed [500]
  Backtrace:
   1. rnrfa::seasonal_averages(timeseries = cmr(18019), season = "Spring")
   3. rnrfa::cmr(18019)
   4. rnrfa::get_ts(id, type = "cmr", metadata, cl, verbose)
   6. rnrfa:::get_ts_internal(id, type, metadata, verbose, full_info)
   7. rnrfa:::nrfa_api(webservice = "time-series", parameters)
  
  ── 15. Error: station_ids works (@test-station_ids.R#4)  ───────────────────────
  NRFA API request failed [500]
  Backtrace:
   1. rnrfa::station_ids()
   2. rnrfa:::nrfa_api(webservice = "station-ids", parameters)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 16 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 15 ]
  1. Error: Output of catalogue function is expected to be at least 1539x20 (@test-catalogue.R#5) 
  2. Error: Check output of catalogue for Plynlimon area (@test-catalogue.R#12) 
  3. Error: Check output of catalogue for minimum records of 100 years (@test-catalogue.R#20) 
  4. Error: Check the catalogue function filters based on column values (@test-catalogue.R#40) 
  5. Error: Output of cmr function for single station (@test-cmr.R#5) 
  6. Error: Output of cmr function for multiple stations (@test-cmr.R#18) 
  7. Error: Output of gdf function for id 18019 (@test-gdf.R#6) 
  8. Error: get_ts gdf works in parallel (@test-gdf.R#22) 
  9. Error: get_ts cmr single works (@test-get_ts.R#18) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted