Running ‘testthat.R’ [2s/103s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library('testthat')
  > library('rnrfa')
  
  +----------------------------------------------------------------+
  |  If you wish to use NRFA data, please refer to the following   |
  |  Terms & Conditions:                                           |
  |  http://nrfa.ceh.ac.uk/costs-terms-and-conditions              |
  +----------------------------------------------------------------+
  
  > 
  > test_check('rnrfa')
  ── 1. Error: Output of catalogue function is expected to be at least 1539x20 (@t
  Timeout was reached: Connection timed out after 10000 milliseconds
  1: catalogue() at testthat/test-catalogue.R:5
  2: httr::GET(url = "http://nrfaapps.ceh.ac.uk/", path = "nrfa/json/stationSummary", 
         query = list(db = "nrfa_public", stn = paste0("llbb:", myBBOX)))
  3: request_perform(req, hu$handle$handle)
  4: request_fetch(req$output, req$url, handle)
  5: request_fetch.write_memory(req$output, req$url, handle)
  6: curl::curl_fetch_memory(url, handle = handle)
  
  ── 2. Error: Check output of catalogue for Plynlimon area (@test-catalogue.R#12)
  Timeout was reached: Connection timed out after 10001 milliseconds
  1: expect_that(dim(catalogue(bbox = list(lonMin = -3.82, lonMax = -3.63, latMin = 52.43, 
         latMax = 52.52)))[1], equals(9)) at testthat/test-catalogue.R:12
  2: condition(object)
  3: expect_equal(x, expected, ..., expected.label = label)
  4: quasi_label(enquo(object), label)
  5: eval_bare(get_expr(quo), get_env(quo))
  6: catalogue(bbox = list(lonMin = -3.82, lonMax = -3.63, latMin = 52.43, latMax = 52.52))
  7: httr::GET(url = "http://nrfaapps.ceh.ac.uk/", path = "nrfa/json/stationSummary", 
         query = list(db = "nrfa_public", stn = paste0("llbb:", myBBOX)))
  8: request_perform(req, hu$handle$handle)
  9: request_fetch(req$output, req$url, handle)
  10: request_fetch.write_memory(req$output, req$url, handle)
  11: curl::curl_fetch_memory(url, handle = handle)
  
  ── 3. Error: Check output of catalogue for minimum records of 100 years (@test-c
  Timeout was reached: Connection timed out after 10001 milliseconds
  1: catalogue(minRec = 100) at testthat/test-catalogue.R:20
  2: httr::GET(url = "http://nrfaapps.ceh.ac.uk/", path = "nrfa/json/stationSummary", 
         query = list(db = "nrfa_public", stn = paste0("llbb:", myBBOX)))
  3: request_perform(req, hu$handle$handle)
  4: request_fetch(req$output, req$url, handle)
  5: request_fetch.write_memory(req$output, req$url, handle)
  6: curl::curl_fetch_memory(url, handle = handle)
  
  ── 4. Error: Output of cmr function for single station (@test-cmr.R#5)  ────────
  Timeout was reached: Connection timed out after 10001 milliseconds
  1: cmr(id = 18019, metadata = FALSE, cl = NULL) at testthat/test-cmr.R:5
  2: get_ts(id, type = "cmr", metadata, cl, verbose)
  3: unlist(get_ts_internal(id, type, metadata, verbose))
  4: get_ts_internal(id, type, metadata, verbose)
  5: httr::GET(url = "http://nrfaapps.ceh.ac.uk/", path = "nrfa/xml/waterml2", query = list(db = "nrfa_public", 
         stn = idx, dt = type))
  6: request_perform(req, hu$handle$handle)
  7: request_fetch(req$output, req$url, handle)
  8: request_fetch.write_memory(req$output, req$url, handle)
  9: curl::curl_fetch_memory(url, handle = handle)
  
  ── 5. Error: Output of cmr function for multiple stations (@test-cmr.R#22)  ────
  Timeout was reached: Connection timed out after 10001 milliseconds
  1: cmr(id = ids, metadata = FALSE, cl = NULL) at testthat/test-cmr.R:22
  2: get_ts(id, type = "cmr", metadata, cl, verbose)
  3: lapply(X = as.list(id), FUN = get_ts_internal, type, metadata, verbose)
  4: FUN(X[[i]], ...)
  5: httr::GET(url = "http://nrfaapps.ceh.ac.uk/", path = "nrfa/xml/waterml2", query = list(db = "nrfa_public", 
         stn = idx, dt = type))
  6: request_perform(req, hu$handle$handle)
  7: request_fetch(req$output, req$url, handle)
  8: request_fetch.write_memory(req$output, req$url, handle)
  9: curl::curl_fetch_memory(url, handle = handle)
  
  ── 6. Error: Output of gdf function for id 18019 (@test-gdf.R#5)  ──────────────
  Timeout was reached: Connection timed out after 10001 milliseconds
  1: expect_that(dim(gdf(18019))[1] >= 729, equals(TRUE)) at testthat/test-gdf.R:5
  2: condition(object)
  3: expect_equal(x, expected, ..., expected.label = label)
  4: quasi_label(enquo(object), label)
  5: eval_bare(get_expr(quo), get_env(quo))
  6: gdf(18019)
  7: get_ts(id, type = "gdf", metadata, cl, verbose)
  8: unlist(get_ts_internal(id, type, metadata, verbose))
  9: get_ts_internal(id, type, metadata, verbose)
  10: httr::GET(url = "http://nrfaapps.ceh.ac.uk/", path = "nrfa/xml/waterml2", query = list(db = "nrfa_public", 
         stn = idx, dt = type))
  11: request_perform(req, hu$handle$handle)
  12: request_fetch(req$output, req$url, handle)
  13: request_fetch.write_memory(req$output, req$url, handle)
  14: curl::curl_fetch_memory(url, handle = handle)
  
  ── 7. Error: get_ts cmr single works (@test-get_ts.R#5)  ───────────────────────
  Timeout was reached: Connection timed out after 10001 milliseconds
  1: rnrfa:::get_ts(id = 18019, type = "cmr") at testthat/test-get_ts.R:5
  2: unlist(get_ts_internal(id, type, metadata, verbose))
  3: get_ts_internal(id, type, metadata, verbose)
  4: httr::GET(url = "http://nrfaapps.ceh.ac.uk/", path = "nrfa/xml/waterml2", query = list(db = "nrfa_public", 
         stn = idx, dt = type))
  5: request_perform(req, hu$handle$handle)
  6: request_fetch(req$output, req$url, handle)
  7: request_fetch.write_memory(req$output, req$url, handle)
  8: curl::curl_fetch_memory(url, handle = handle)
  
  ── 8. Error: get_ts cmr multi works (@test-get_ts.R#12)  ───────────────────────
  Timeout was reached: Connection timed out after 10001 milliseconds
  1: rnrfa:::get_ts(id = c(54022, 54090, 54091), type = "cmr") at testthat/test-get_ts.R:12
  2: lapply(X = as.list(id), FUN = get_ts_internal, type, metadata, verbose)
  3: FUN(X[[i]], ...)
  4: httr::GET(url = "http://nrfaapps.ceh.ac.uk/", path = "nrfa/xml/waterml2", query = list(db = "nrfa_public", 
         stn = idx, dt = type))
  5: request_perform(req, hu$handle$handle)
  6: request_fetch(req$output, req$url, handle)
  7: request_fetch.write_memory(req$output, req$url, handle)
  8: curl::curl_fetch_memory(url, handle = handle)
  
  ── 9. Error: get_ts gdf single works (@test-get_ts.R#21)  ──────────────────────
  Timeout was reached: Connection timed out after 10001 milliseconds
  1: rnrfa:::get_ts(id = 18019, type = "gdf") at testthat/test-get_ts.R:21
  2: unlist(get_ts_internal(id, type, metadata, verbose))
  3: get_ts_internal(id, type, metadata, verbose)
  4: httr::GET(url = "http://nrfaapps.ceh.ac.uk/", path = "nrfa/xml/waterml2", query = list(db = "nrfa_public", 
         stn = idx, dt = type))
  5: request_perform(req, hu$handle$handle)
  6: request_fetch(req$output, req$url, handle)
  7: request_fetch.write_memory(req$output, req$url, handle)
  8: curl::curl_fetch_memory(url, handle = handle)
  
  ── 10. Error: get_ts gdf multi works (@test-get_ts.R#28)  ──────────────────────
  Timeout was reached: Connection timed out after 10001 milliseconds
  1: rnrfa:::get_ts(id = c(54022, 54090, 54091), type = "gdf") at testthat/test-get_ts.R:28
  2: lapply(X = as.list(id), FUN = get_ts_internal, type, metadata, verbose)
  3: FUN(X[[i]], ...)
  4: httr::GET(url = "http://nrfaapps.ceh.ac.uk/", path = "nrfa/xml/waterml2", query = list(db = "nrfa_public", 
         stn = idx, dt = type))
  5: request_perform(req, hu$handle$handle)
  6: request_fetch(req$output, req$url, handle)
  7: request_fetch.write_memory(req$output, req$url, handle)
  8: curl::curl_fetch_memory(url, handle = handle)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 10 SKIPPED: 0 FAILED: 10
  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: Output of cmr function for single station (@test-cmr.R#5) 
  5.  Error: Output of cmr function for multiple stations (@test-cmr.R#22) 
  6.  Error: Output of gdf function for id 18019 (@test-gdf.R#5) 
  7.  Error: get_ts cmr single works (@test-get_ts.R#5) 
  8.  Error: get_ts cmr multi works (@test-get_ts.R#12) 
  9.  Error: get_ts gdf single works (@test-get_ts.R#21) 
  10. Error: get_ts gdf multi works (@test-get_ts.R#28) 
  
  Error: testthat unit tests failed
  Execution halted