Running 'test-all.R' [46s]
Running the tests in 'tests/test-all.R' failed.
Complete output:
  > library(testthat)
  > library("rinat")
  > test_check("rinat")
  == Warnings ====================================================================
  -- Warning (test-all.R:13:3): get_inat_obs search parameters work --------------
  Content type incorrect, should be 'text/csv; charset=utf-8'
  Backtrace:
   1. testthat::expect_equal(...) test-all.R:13:2
   4. rinat::get_inat_obs(taxon_id = 26790, day = 10, maxresults = 10)
   5. rinat:::inat_handle(data)
  -- Warning (test-all.R:13:3): get_inat_obs search parameters work --------------
  Error: HTTP Status 502
  Backtrace:
   1. testthat::expect_equal(...) test-all.R:13:2
   4. rinat::get_inat_obs(taxon_id = 26790, day = 10, maxresults = 10)
   5. rinat:::inat_handle(data)
  
  == Failed tests ================================================================
  -- Error (test-all.R:13:3): get_inat_obs search parameters work ----------------
  Error: argument is of length zero
  Backtrace:
      x
   1. +-testthat::expect_equal(...) test-all.R:13:2
   2. | \-testthat::quasi_label(enquo(object), label, arg = "object")
   3. |   \-rlang::eval_bare(expr, quo_get_env(quo))
   4. \-rinat::get_inat_obs(taxon_id = 26790, day = 10, maxresults = 10)
  -- Error (test-all.R:21:3): getting observation by ID works --------------------
  Error: Recv failure: Connection was reset
  Backtrace:
       x
    1. +-testthat::expect_gt(length(get_inat_obs_id(res_set$id[1])), 0) test-all.R:21:2
    2. | \-testthat::quasi_label(enquo(object), label, arg = "object")
    3. |   \-rlang::eval_bare(expr, quo_get_env(quo))
    4. \-rinat::get_inat_obs_id(res_set$id[1])
    5.   +-jsonlite::fromJSON(content(GET(base_url, path = q_path), as = "text"))
    6.   +-httr::content(GET(base_url, path = q_path), as = "text")
    7.   | +-base::stopifnot(is.response(x))
    8.   | \-httr:::is.response(x)
    9.   \-httr::GET(base_url, path = q_path)
   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)
  -- Error (test-all.R:26:3): project info is retrieved --------------------------
  Error: Failed to connect to www.inaturalist.org port 80: Connection refused
  Backtrace:
       x
    1. +-testthat::expect_match(...) test-all.R:26:2
    2. | \-testthat::quasi_label(enquo(object), label, arg = "object")
    3. |   \-rlang::eval_bare(expr, quo_get_env(quo))
    4. \-rinat::get_inat_obs_project(...)
    5.   +-jsonlite::fromJSON(content(GET(url), as = "text"))
    6.   +-httr::content(GET(url), as = "text")
    7.   | +-base::stopifnot(is.response(x))
    8.   | \-httr:::is.response(x)
    9.   \-httr::GET(url)
   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)
  -- Error (test-all.R:30:3): getting observations by users works ----------------
  Error: argument is of length zero
  Backtrace:
      x
   1. +-testthat::expect_gt(...) test-all.R:30:2
   2. | \-testthat::quasi_label(enquo(object), label, arg = "object")
   3. |   \-rlang::eval_bare(expr, quo_get_env(quo))
   4. \-rinat::get_inat_obs_user(as.character(res_set$user_login[1]))
  -- Error (test-all.R:34:3): taxon stats works ----------------------------------
  Error: lexical error: invalid char in json text.
                                         <?xml version="1.0" encoding="u
                       (right here) ------^
  
  Backtrace:
      x
   1. +-testthat::expect_gt(...) test-all.R:34:2
   2. | \-testthat::quasi_label(enquo(object), label, arg = "object")
   3. |   \-rlang::eval_bare(expr, quo_get_env(quo))
   4. \-rinat::get_inat_taxon_stats(date = "2010-06-14")
   5.   \-jsonlite::fromJSON(...)
   6.     \-jsonlite:::parse_and_simplify(...)
   7.       \-jsonlite:::parseJSON(txt, bigint_as_char)
   8.         \-jsonlite:::parse_string(txt, bigint_as_char)
  -- Error (test-all.R:38:3): user stats works -----------------------------------
  Error: lexical error: invalid char in json text.
                                         <?xml version="1.0" encoding="u
                       (right here) ------^
  
  Backtrace:
      x
   1. +-testthat::expect_gt(...) test-all.R:38:2
   2. | \-testthat::quasi_label(enquo(object), label, arg = "object")
   3. |   \-rlang::eval_bare(expr, quo_get_env(quo))
   4. \-rinat::get_inat_user_stats(date = "2010-06-14")
   5.   \-jsonlite::fromJSON(...)
   6.     \-jsonlite:::parse_and_simplify(...)
   7.       \-jsonlite:::parseJSON(txt, bigint_as_char)
   8.         \-jsonlite:::parse_string(txt, bigint_as_char)
  
  [ FAIL 6 | WARN 2 | SKIP 0 | PASS 7 ]
  Error: Test failures
  Execution halted