Running 'testthat.R'
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(ecocomDP)
  > 
  > test_check("ecocomDP")
  [ FAIL 3 | WARN 0 | SKIP 10 | PASS 710 ]
  
  ══ 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 timed out after 10007 milliseconds"
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test_validate_arguments.R:323:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat .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 timed out after 10010 milliseconds
  Backtrace:
       ▆
    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: "Timeout was reached: [pasta.lternet.edu] Connection timed out after 10015 milliseconds"
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test_validate_arguments.R:425:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat .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()
    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)
  
  [ FAIL 3 | WARN 0 | SKIP 10 | PASS 710 ]
  Error: Test failures
  Execution halted