Running ‘testthat.R’ [6s/210s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(neotoma2)
  
  Attaching package: 'neotoma2'
  
  The following object is masked from 'package:stats':
  
      filter
  
  > 
  > test_check("neotoma2")
  [ FAIL 4 | WARN 0 | SKIP 47 | PASS 10 ]
  
  ══ Skipped tests (47) ══════════════════════════════════════════════════════════
  • Not ready yet (1): 'test_specimens.R:25:3'
  • On CRAN (46): 'test-toJSON.R:2:3', 'test_c.R:10:3',
    'test_check_contacts.R:10:3', 'test_chroncontrols.R:4:3',
    'test_chroncontrols.R:21:3', 'test_chroncontrols.R:35:3', 'test_clean.R:5:3',
    'test_datasets.R:3:3', 'test_datasets.R:19:3', 'test_datasets.R:39:3',
    'test_datasets.R:86:3', 'test_datasets.R:109:3', 'test_download.R:3:3',
    'test_download.R:30:3', 'test_examples.R:3:3', 'test_filter.R:4:3',
    'test_filter.R:27:3', 'test_filter.R:50:3', 'test_filter.R:74:3',
    'test_filter.R:111:3', 'test_filter.R:138:3', 'test_filter.R:166:3',
    'test_filter.R:192:3', 'test_filter.R:208:3', 'test_filter.R:223:3',
    'test_generaltests.R:6:3', 'test_generaltests.R:17:3',
    'test_generaltests.R:22:3', 'test_generaltests.R:40:3',
    'test_generaltests.R:70:3', 'test_generaltests.R:96:3', 'test_methods.R:3:3',
    'test_plotLeaflet.r:6:3', 'test_plotLeaflet.r:18:3', 'test_samples.R:11:3',
    'test_setsample.R:8:3', 'test_setsite.r:8:3', 'test_sites.R:9:3',
    'test_sites.R:21:3', 'test_sites.R:37:3', 'test_sites.R:49:3',
    'test_sites.R:90:3', 'test_specimens.R:3:3', 'test_specimens.R:10:3',
    'test_specimens.R:18:3', 'test_toWide.R:10:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-get_contacts.R:7:3'): Integer x returns sets of contacts: ──────
  <http_500/http_error/error/condition>
  Error in `get_response(baseurl, x, query)`: Internal Server Error (HTTP 500). Failed to Could not connect to the Neotoma API.
                                      Check that the path is valid, and 
                                      check the current status of the
                                      Neotoma API services at 
                                      http://data.neotomadb.org.
  Backtrace:
      ▆
   1. ├─neotoma2::get_contacts(x = 1) at test-get_contacts.R:7:3
   2. ├─neotoma2:::get_contacts.numeric(x = 1)
   3. │ ├─parseURL(baseURL) %>% cleanNULL()
   4. │ └─neotoma2:::parseURL(baseURL)
   5. │   └─neotoma2 (local) get_response(baseurl, x, query)
   6. │     └─httr::stop_for_status(response, task = "Could not connect to the Neotoma API.\n                                    Check that the path is valid, and \n                                    check the current status of the\n                                    Neotoma API services at \n                                    http://data.neotomadb.org")
   7. └─neotoma2:::cleanNULL(.)
  ── Error ('test-get_table.R:11:3'): We can apply the limits for get_table() ────
  <http_500/http_error/error/condition>
  Error in `get_response(baseurl, x, query)`: Internal Server Error (HTTP 500). Failed to Could not connect to the Neotoma API.
                                      Check that the path is valid, and 
                                      check the current status of the
                                      Neotoma API services at 
                                      http://data.neotomadb.org.
  Backtrace:
      ▆
   1. ├─testthat::expect_equal(...) at test-get_table.R:11:3
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. ├─base::nrow(get_table("agetypes", limit = 1))
   5. └─neotoma2::get_table("agetypes", limit = 1)
   6.   └─neotoma2:::parseURL(...)
   7.     └─neotoma2 (local) get_response(baseurl, x, query)
   8.       └─httr::stop_for_status(response, task = "Could not connect to the Neotoma API.\n                                    Check that the path is valid, and \n                                    check the current status of the\n                                    Neotoma API services at \n                                    http://data.neotomadb.org")
  ── Error ('test-get_table.R:16:3'): Limit and offsets work for the get_table() call ──
  <http_500/http_error/error/condition>
  Error in `get_response(baseurl, x, query)`: Internal Server Error (HTTP 500). Failed to Could not connect to the Neotoma API.
                                      Check that the path is valid, and 
                                      check the current status of the
                                      Neotoma API services at 
                                      http://data.neotomadb.org.
  Backtrace:
      ▆
   1. ├─testthat::expect_false(...) at test-get_table.R:16:3
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. ├─rlang::hash(get_table("agetypes", limit = 1, offset = 1))
   5. └─neotoma2::get_table("agetypes", limit = 1, offset = 1)
   6.   └─neotoma2:::parseURL(...)
   7.     └─neotoma2 (local) get_response(baseurl, x, query)
   8.       └─httr::stop_for_status(response, task = "Could not connect to the Neotoma API.\n                                    Check that the path is valid, and \n                                    check the current status of the\n                                    Neotoma API services at \n                                    http://data.neotomadb.org")
  ── Error ('test_generaltests.R:112:3'): Testing the publications calls. ────────
  <http_500/http_error/error/condition>
  Error in `get_response(baseurl, x, query)`: Internal Server Error (HTTP 500). Failed to Could not connect to the Neotoma API.
                                      Check that the path is valid, and 
                                      check the current status of the
                                      Neotoma API services at 
                                      http://data.neotomadb.org.
  Backtrace:
      ▆
   1. ├─neotoma2::get_publications() at test_generaltests.R:112:3
   2. └─neotoma2:::get_publications.default()
   3.   └─neotoma2:::parseURL(baseURL, ...)
   4.     └─neotoma2 (local) get_response(baseurl, x, query)
   5.       └─httr::stop_for_status(response, task = "Could not connect to the Neotoma API.\n                                    Check that the path is valid, and \n                                    check the current status of the\n                                    Neotoma API services at \n                                    http://data.neotomadb.org")
  
  [ FAIL 4 | WARN 0 | SKIP 47 | PASS 10 ]
  Error: Test failures
  Execution halted