Running 'testthat.R' [35s/201s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(ecocomDP)
  > 
  > test_check("ecocomDP")
  [ FAIL 3 | WARN 0 | SKIP 10 | PASS 713 ]
  
  == Skipped tests ===============================================================
  * On CRAN (10)
  
  == Failed tests ================================================================
  -- Failure (test_validate_arguments.R:323:3): read_data() ----------------------
  `validate_arguments("read_data", as.list(list(id = 1)))` threw an error with unexpected message.
  Expected match: "Input 'id' should be character."
  Actual message: "Timeout was reached: [pasta.lternet.edu] Connection timeout after 10000 ms"
  Backtrace:
       x
    1. +-testthat::expect_error(...) at test_validate_arguments.R:323:2
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat (local) .capture(...)
    4. |   | \-base::withCallingHandlers(...)
    5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. \-ecocomDP:::validate_arguments("read_data", as.list(list(id = 1)))
    7.   \-ecocomDP:::ping_edi()
    8.     \-httr::GET(url = "https://pasta.lternet.edu/package/eml/edi/759")
    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_validate_arguments.R:336:3): read_data() ------------------------
  Error in `curl::curl_fetch_memory(url, handle = handle)`: Timeout was reached: [pasta.lternet.edu] Connection timeout after 10001 ms
  Backtrace:
       x
    1. +-testthat::expect_null(validate_arguments("read_data", as.list(list(path = tempdir())))) at test_validate_arguments.R:336:2
    2. | \-testthat::quasi_label(enquo(object), label, arg = "object")
    3. |   \-rlang::eval_bare(expr, quo_get_env(quo))
    4. \-ecocomDP:::validate_arguments("read_data", as.list(list(path = tempdir())))
    5.   \-ecocomDP:::ping_edi()
    6.     \-httr::GET(url = "https://pasta.lternet.edu/package/eml/edi/759")
    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)
  -- Failure (test_validate_arguments.R:425:3): save_data() ----------------------
  `validate_arguments("read_data", as.list(list(path = "/some/invalid/path")))` threw an error with unexpected message.
  Expected match: "Input 'path' .+ doesn't exist."
  Actual message: "The EDI Repository is down for regular maintenance (Wednesday 01:00 - 03:00 UTC). If you have reached this message outside maintenance hours, then there is an unexpected issue that will be resolved shortly. Our apologies for the inconvenience. Please try again later."
  Backtrace:
      x
   1. +-testthat::expect_error(...) at test_validate_arguments.R:425:2
   2. | \-testthat:::quasi_capture(...)
   3. |   +-testthat (local) .capture(...)
   4. |   | \-base::withCallingHandlers(...)
   5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   6. \-ecocomDP:::validate_arguments("read_data", as.list(list(path = "/some/invalid/path")))
   7.   \-ecocomDP:::ping_edi()
  
  [ FAIL 3 | WARN 0 | SKIP 10 | PASS 713 ]
  Error: Test failures
  Execution halted