Running ‘testthat.R’ [4s/34s]
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 cmr function for single station (@test-cmr.R#5) ------------
  Timeout was reached
  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)
  
  2. Error: Output of cmr function for multiple stations (@test-cmr.R#22) --------
  Timeout was reached
  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)
  
  3. Error: Output of gdf function for id 18019 (@test-gdf.R#5) ------------------
  Timeout was reached
  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: compare(object, expected, ...)
  5: gdf(18019)
  6: get_ts(id, type = "gdf", metadata, cl, verbose)
  7: unlist(get_ts_internal(id, type, metadata, verbose))
  8: get_ts_internal(id, type, metadata, verbose)
  9: httr::GET(url = "http://nrfaapps.ceh.ac.uk/", path = "nrfa/xml/waterml2", query = list(db = "nrfa_public", 
         stn = idx, dt = type))
  10: request_perform(req, hu$handle$handle)
  11: request_fetch(req$output, req$url, handle)
  12: request_fetch.write_memory(req$output, req$url, handle)
  13: curl::curl_fetch_memory(url, handle = handle)
  
  testthat results ================================================================
  OK: 6 SKIPPED: 0 FAILED: 3
  1. Error: Output of cmr function for single station (@test-cmr.R#5) 
  2. Error: Output of cmr function for multiple stations (@test-cmr.R#22) 
  3. Error: Output of gdf function for id 18019 (@test-gdf.R#5) 
  
  Error: testthat unit tests failed
  Execution halted