Running 'testthat.R' [15m]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library("testthat")
  > library("rdefra")
  > 
  > test_check("rdefra")
  Error in file(file, "rt") : cannot open the connection
  Error in file(file, "rt") : cannot open the connection
  Error in file(file, "rt") : cannot open the connection
  Error in file(file, "rt") : cannot open the connection
  Error in file(file, "rt") : cannot open the connection
  Error in file(file, "rt") : cannot open the connection
  Error in file(file, "rt") : cannot open the connection
  Error in file(file, "rt") : cannot open the connection
  Error in file(file, "rt") : cannot open the connection
  Error in file(file, "rt") : cannot open the connection
  Error in file(file, "rt") : cannot open the connection
  Error in file(file, "rt") : cannot open the connection
  Error in file(file, "rt") : cannot open the connection
  Error in file(file, "rt") : cannot open the connection
  Error in file(file, "rt") : cannot open the connection
  Error in file(file, "rt") : cannot open the connection
  == Skipped tests ===============================================================
  * On CRAN (1)
  
  == Warnings ====================================================================
  -- Warning (test-data.R:39:3): Metadata should be in the right format ----------
  InternetOpenUrl failed: 'Die Serververbindung konnte nicht hergestellt werden.'
  Backtrace:
    1. rdefra::ukair_get_hourly_data(site_id, years) test-data.R:39:2
    2. rdefra:::ukair_get_hourly_data_internal(site_id, myYear)
    8. utils::read.csv(my_url, skip = 4)
    9. utils::read.table(...)
   10. base::file(file, "rt")
  -- Warning (test-data.R:39:3): Metadata should be in the right format ----------
  InternetOpenUrl failed: 'Die Serververbindung konnte nicht hergestellt werden.'
  Backtrace:
    1. rdefra::ukair_get_hourly_data(site_id, years) test-data.R:39:2
    2. rdefra:::ukair_get_hourly_data_internal(site_id, myYear)
    8. utils::read.csv(my_url, skip = 4)
    9. utils::read.table(...)
   10. base::file(file, "rt")
  -- Warning (test-data.R:39:3): Metadata should be in the right format ----------
  InternetOpenUrl failed: 'Die Serververbindung konnte nicht hergestellt werden.'
  Backtrace:
    1. rdefra::ukair_get_hourly_data(site_id, years) test-data.R:39:2
    2. rdefra:::ukair_get_hourly_data_internal(site_id, myYear)
    8. utils::read.csv(my_url, skip = 4)
    9. utils::read.table(...)
   10. base::file(file, "rt")
  -- Warning (test-data.R:39:3): Metadata should be in the right format ----------
  InternetOpenUrl failed: 'Die Serververbindung konnte nicht hergestellt werden.'
  Backtrace:
    1. rdefra::ukair_get_hourly_data(site_id, years) test-data.R:39:2
    2. rdefra:::ukair_get_hourly_data_internal(site_id, myYear)
    8. utils::read.csv(my_url, skip = 4)
    9. utils::read.table(...)
   10. base::file(file, "rt")
  -- Warning (test-data.R:39:3): Metadata should be in the right format ----------
  InternetOpenUrl failed: 'Die Serververbindung konnte nicht hergestellt werden.'
  Backtrace:
    1. rdefra::ukair_get_hourly_data(site_id, years) test-data.R:39:2
    2. rdefra:::ukair_get_hourly_data_internal(site_id, myYear)
    8. utils::read.csv(my_url, skip = 4)
    9. utils::read.table(...)
   10. base::file(file, "rt")
  -- Warning (test-data.R:39:3): Metadata should be in the right format ----------
  InternetOpenUrl failed: 'Die Serververbindung konnte nicht hergestellt werden.'
  Backtrace:
    1. rdefra::ukair_get_hourly_data(site_id, years) test-data.R:39:2
    2. rdefra:::ukair_get_hourly_data_internal(site_id, myYear)
    8. utils::read.csv(my_url, skip = 4)
    9. utils::read.table(...)
   10. base::file(file, "rt")
  -- Warning (test-data.R:39:3): Metadata should be in the right format ----------
  InternetOpenUrl failed: 'Die Serververbindung konnte nicht hergestellt werden.'
  Backtrace:
    1. rdefra::ukair_get_hourly_data(site_id, years) test-data.R:39:2
    2. rdefra:::ukair_get_hourly_data_internal(site_id, myYear)
    8. utils::read.csv(my_url, skip = 4)
    9. utils::read.table(...)
   10. base::file(file, "rt")
  -- Warning (test-data.R:39:3): Metadata should be in the right format ----------
  InternetOpenUrl failed: 'Die Serververbindung konnte nicht hergestellt werden.'
  Backtrace:
    1. rdefra::ukair_get_hourly_data(site_id, years) test-data.R:39:2
    2. rdefra:::ukair_get_hourly_data_internal(site_id, myYear)
    8. utils::read.csv(my_url, skip = 4)
    9. utils::read.table(...)
   10. base::file(file, "rt")
  -- Warning (test-data.R:39:3): Metadata should be in the right format ----------
  InternetOpenUrl failed: 'Die Serververbindung konnte nicht hergestellt werden.'
  Backtrace:
    1. rdefra::ukair_get_hourly_data(site_id, years) test-data.R:39:2
    2. rdefra:::ukair_get_hourly_data_internal(site_id, myYear)
    8. utils::read.csv(my_url, skip = 4)
    9. utils::read.table(...)
   10. base::file(file, "rt")
  -- Warning (test-data.R:39:3): Metadata should be in the right format ----------
  InternetOpenUrl failed: 'Die Serververbindung konnte nicht hergestellt werden.'
  Backtrace:
    1. rdefra::ukair_get_hourly_data(site_id, years) test-data.R:39:2
    2. rdefra:::ukair_get_hourly_data_internal(site_id, myYear)
    8. utils::read.csv(my_url, skip = 4)
    9. utils::read.table(...)
   10. base::file(file, "rt")
  -- Warning (test-data.R:39:3): Metadata should be in the right format ----------
  InternetOpenUrl failed: 'Die Serververbindung konnte nicht hergestellt werden.'
  Backtrace:
    1. rdefra::ukair_get_hourly_data(site_id, years) test-data.R:39:2
    2. rdefra:::ukair_get_hourly_data_internal(site_id, myYear)
    8. utils::read.csv(my_url, skip = 4)
    9. utils::read.table(...)
   10. base::file(file, "rt")
  -- Warning (test-data.R:39:3): Metadata should be in the right format ----------
  InternetOpenUrl failed: 'Die Serververbindung konnte nicht hergestellt werden.'
  Backtrace:
    1. rdefra::ukair_get_hourly_data(site_id, years) test-data.R:39:2
    2. rdefra:::ukair_get_hourly_data_internal(site_id, myYear)
    8. utils::read.csv(my_url, skip = 4)
    9. utils::read.table(...)
   10. base::file(file, "rt")
  -- Warning (test-data.R:39:3): Metadata should be in the right format ----------
  InternetOpenUrl failed: 'Die Serververbindung konnte nicht hergestellt werden.'
  Backtrace:
    1. rdefra::ukair_get_hourly_data(site_id, years) test-data.R:39:2
    2. rdefra:::ukair_get_hourly_data_internal(site_id, myYear)
    8. utils::read.csv(my_url, skip = 4)
    9. utils::read.table(...)
   10. base::file(file, "rt")
  -- Warning (test-data.R:39:3): Metadata should be in the right format ----------
  InternetOpenUrl failed: 'Die Serververbindung konnte nicht hergestellt werden.'
  Backtrace:
    1. rdefra::ukair_get_hourly_data(site_id, years) test-data.R:39:2
    2. rdefra:::ukair_get_hourly_data_internal(site_id, myYear)
    8. utils::read.csv(my_url, skip = 4)
    9. utils::read.table(...)
   10. base::file(file, "rt")
  -- Warning (test-data.R:39:3): Metadata should be in the right format ----------
  InternetOpenUrl failed: 'Die Serververbindung konnte nicht hergestellt werden.'
  Backtrace:
    1. rdefra::ukair_get_hourly_data(site_id, years) test-data.R:39:2
    2. rdefra:::ukair_get_hourly_data_internal(site_id, myYear)
    8. utils::read.csv(my_url, skip = 4)
    9. utils::read.table(...)
   10. base::file(file, "rt")
  -- Warning (test-data.R:39:3): Metadata should be in the right format ----------
  Unknown or uninitialised column: `unit`.
  Backtrace:
   1. rdefra::ukair_get_hourly_data(site_id, years) test-data.R:39:2
   3. tibble:::`$.tbl_df`(`*tmp*`, "unit")
  -- Warning (test-data.R:39:3): Metadata should be in the right format ----------
  Unknown or uninitialised column: `unit`.
  Backtrace:
   1. rdefra::ukair_get_hourly_data(site_id, years) test-data.R:39:2
   3. tibble:::`$.tbl_df`(new_meta, "unit")
  -- Warning (test-data.R:53:3): Data should be in the right format --------------
  InternetOpenUrl failed: 'Die Serververbindung konnte nicht hergestellt werden.'
  Backtrace:
    1. rdefra::ukair_get_hourly_data(site_id, years) test-data.R:53:2
    2. rdefra:::ukair_get_hourly_data_internal(site_id, myYear)
    8. utils::read.csv(my_url, skip = 4)
    9. utils::read.table(...)
   10. base::file(file, "rt")
  -- Warning (test-data.R:53:3): Data should be in the right format --------------
  Unknown or uninitialised column: `unit`.
  Backtrace:
   1. rdefra::ukair_get_hourly_data(site_id, years) test-data.R:53:2
   3. tibble:::`$.tbl_df`(`*tmp*`, "unit")
  -- Warning (test-data.R:53:3): Data should be in the right format --------------
  Unknown or uninitialised column: `unit`.
  Backtrace:
   1. rdefra::ukair_get_hourly_data(site_id, years) test-data.R:53:2
   3. tibble:::`$.tbl_df`(new_meta, "unit")
  
  == Failed tests ================================================================
  -- Error (test-data.R:11:3): Hourly data for station ABD/2014 should be available --
  Error: Timeout was reached: [uk-air.defra.gov.uk] Connection timed out after 10010 milliseconds
  Backtrace:
       x
    1. +-testthat::expect_that(httr::http_error(myURL), equals(FALSE)) test-data.R:11:2
    2. | \-testthat:::condition(object)
    3. |   \-testthat::expect_equal(x, expected, ..., expected.label = label)
    4. |     \-testthat::quasi_label(enquo(object), label, arg = "object")
    5. |       \-rlang::eval_bare(expr, quo_get_env(quo))
    6. +-httr::http_error(myURL)
    7. \-httr:::http_error.character(myURL)
    8.   +-httr::http_error(HEAD(x, ...))
    9.   \-httr::HEAD(x, ...)
   10.     \-httr:::request_perform(req, hu$handle$handle)
   11.       +-httr:::request_fetch(req$output, req$url, handle)
   12.       \-httr:::request_fetch.write_memory(req$output, req$url, handle)
   13.         \-curl::curl_fetch_memory(url, handle = handle)
  -- Failure (test-data.R:44:3): Metadata should be in the right format ----------
  `x` not equal to `expected`.
  1 element mismatch
  -- Failure (test-data.R:55:3): Data should be in the right format --------------
  `x` not equal to `expected`.
  'is.NA' value mismatch: 0 in current 1 in target
  -- Error (test-metadata.R:13:3): DEFRA server should be running ----------------
  Error: Timeout was reached: [uk-air.defra.gov.uk] Connection timed out after 10006 milliseconds
  Backtrace:
      x
   1. \-httr::GET(...) test-metadata.R:13:2
   2.   \-httr:::request_perform(req, hu$handle$handle)
   3.     +-httr:::request_fetch(req$output, req$url, handle)
   4.     \-httr:::request_fetch.write_memory(req$output, req$url, handle)
   5.       \-curl::curl_fetch_memory(url, handle = handle)
  -- Error (test-metadata.R:37:3): Up-to-date metadata catalogue should have at least 6608 stations. --
  Error: Timeout was reached: [uk-air.defra.gov.uk] Connection timed out after 10015 milliseconds
  Backtrace:
      x
   1. \-rdefra::ukair_catalogue() test-metadata.R:37:2
   2.   \-httr::GET(...)
   3.     \-httr:::request_perform(req, hu$handle$handle)
   4.       +-httr:::request_fetch(req$output, req$url, handle)
   5.       \-httr:::request_fetch.write_memory(req$output, req$url, handle)
   6.         \-curl::curl_fetch_memory(url, handle = handle)
  -- Error (test-metadata.R:48:3): Find site identification number from the UK AIR ID string. --
  Error: Timeout was reached: [uk-air.defra.gov.uk] Connection timed out after 10001 milliseconds
  Backtrace:
       x
    1. \-rdefra::ukair_get_site_id(uka_id) test-metadata.R:48:2
    2.   +-base::t(sapply(id_s, ukair_get_site_id_internal))
    3.   \-base::sapply(id_s, ukair_get_site_id_internal)
    4.     \-base::lapply(X = X, FUN = FUN, ...)
    5.       \-rdefra:::FUN(X[[i]], ...)
    6.         \-httr::GET(...)
    7.           \-httr:::request_perform(req, hu$handle$handle)
    8.             +-httr:::request_fetch(req$output, req$url, handle)
    9.             \-httr:::request_fetch.write_memory(req$output, req$url, handle)
   10.               \-curl::curl_fetch_memory(url, handle = handle)
  -- Error (test-metadata.R:62:3): Find easting and northing coordinates of site UKA12536. --
  Error: Timeout was reached: [uk-air.defra.gov.uk] Connection timed out after 10003 milliseconds
  Backtrace:
       x
    1. +-rdefra::ukair_get_coordinates(uka_id) test-metadata.R:62:2
    2. \-rdefra:::ukair_get_coordinates.character(uka_id)
    3.   +-base::data.frame(t(sapply(ids, ukair_get_coordinates_internal)))
    4.   +-base::t(sapply(ids, ukair_get_coordinates_internal))
    5.   \-base::sapply(ids, ukair_get_coordinates_internal)
    6.     \-base::lapply(X = X, FUN = FUN, ...)
    7.       \-rdefra:::FUN(X[[i]], ...)
    8.         \-httr::GET(...)
    9.           \-httr:::request_perform(req, hu$handle$handle)
   10.             +-httr:::request_fetch(req$output, req$url, handle)
   11.             \-httr:::request_fetch.write_memory(req$output, req$url, handle)
   12.               \-curl::curl_fetch_memory(url, handle = handle)
  -- Error (test-metadata.R:77:3): Find easting and northing coordinates of site UKA15910. --
  Error: Timeout was reached: [uk-air.defra.gov.uk] Connection timed out after 10006 milliseconds
  Backtrace:
       x
    1. +-rdefra::ukair_get_coordinates(uka_id) test-metadata.R:77:2
    2. \-rdefra:::ukair_get_coordinates.character(uka_id)
    3.   +-base::data.frame(t(sapply(ids, ukair_get_coordinates_internal)))
    4.   +-base::t(sapply(ids, ukair_get_coordinates_internal))
    5.   \-base::sapply(ids, ukair_get_coordinates_internal)
    6.     \-base::lapply(X = X, FUN = FUN, ...)
    7.       \-rdefra:::FUN(X[[i]], ...)
    8.         \-httr::GET(...)
    9.           \-httr:::request_perform(req, hu$handle$handle)
   10.             +-httr:::request_fetch(req$output, req$url, handle)
   11.             \-httr:::request_fetch.write_memory(req$output, req$url, handle)
   12.               \-curl::curl_fetch_memory(url, handle = handle)
  -- Error (test-metadata.R:91:3): Find easting and northing coordinates of multiple sites. --
  Error: Timeout was reached: [uk-air.defra.gov.uk] Connection timed out after 10010 milliseconds
  Backtrace:
       x
    1. +-rdefra::ukair_get_coordinates(IDs) test-metadata.R:91:2
    2. \-rdefra:::ukair_get_coordinates.character(IDs)
    3.   +-base::data.frame(t(sapply(ids, ukair_get_coordinates_internal)))
    4.   +-base::t(sapply(ids, ukair_get_coordinates_internal))
    5.   \-base::sapply(ids, ukair_get_coordinates_internal)
    6.     \-base::lapply(X = X, FUN = FUN, ...)
    7.       \-rdefra:::FUN(X[[i]], ...)
    8.         \-httr::GET(...)
    9.           \-httr:::request_perform(req, hu$handle$handle)
   10.             +-httr:::request_fetch(req$output, req$url, handle)
   11.             \-httr:::request_fetch.write_memory(req$output, req$url, handle)
   12.               \-curl::curl_fetch_memory(url, handle = handle)
  -- Error (test-metadata.R:119:3): Infill missing coordinates from data frame. --
  Error: Timeout was reached: [uk-air.defra.gov.uk] Connection timed out after 10002 milliseconds
  Backtrace:
       x
    1. +-rdefra::ukair_get_coordinates(stations) test-metadata.R:119:2
    2. \-rdefra:::ukair_get_coordinates.data.frame(stations)
    3.   +-base::data.frame(t(sapply(id_s, ukair_get_coordinates_internal)))
    4.   +-base::t(sapply(id_s, ukair_get_coordinates_internal))
    5.   \-base::sapply(id_s, ukair_get_coordinates_internal)
    6.     \-base::lapply(X = X, FUN = FUN, ...)
    7.       \-rdefra:::FUN(X[[i]], ...)
    8.         \-httr::GET(...)
    9.           \-httr:::request_perform(req, hu$handle$handle)
   10.             +-httr:::request_fetch(req$output, req$url, handle)
   11.             \-httr:::request_fetch.write_memory(req$output, req$url, handle)
   12.               \-curl::curl_fetch_memory(url, handle = handle)
  
  [ FAIL 10 | WARN 20 | SKIP 1 | PASS 3 ]
  Error: Test failures
  Execution halted