Running 'test-all.R' [15s]
Running the tests in 'tests/test-all.R' failed.
Complete output:
  > library("testthat")
  > test_check("worrms")
  Loading required package: worrms
  -- 1. Error: wm_children - offset parameter works (@test-wm_children.R#29)  ----
  (503) Service Unavailable - 105706
  1: vcr::use_cassette("wm_children_offset", {
         off1 <- wm_children(id = 105706, offset = 1)
         off2 <- wm_children(id = 105706, offset = 2)
     }, match_requests_on = c("method", "uri", "query")) at testthat/test-wm_children.R:29
  2: cassette$call_block(...)
  3: lazyeval::lazy_eval(tmp)
  4: lapply(x, lazy_eval, data = data)
  5: FUN(X[[i]], ...)
  6: eval(x$expr, x$env, emptyenv())
  7: eval(x$expr, x$env, emptyenv())
  8: wm_children(id = 105706, offset = 1) at testthat/test-wm_children.R:30
  9: wm_GET(file.path(wm_base(), "AphiaChildrenByAphiaID", id), query = cc(list(marine_only = as_log(marine_only), 
         offset = offset)), ...)
  10: on_error(sprintf("(%s) %s - %s", temp$status_code, temp$status_http()$message, basename(url)), 
         call. = FALSE)
  
  -- 2. Error: wm_record_ - deprecated (@test-wm_record.R#36)  -------------------
  lexical error: invalid char in json text.
                                         <html><body><h1>503 Service Una
                       (right here) ------^
  1: expect_warning(wm_record_(id = 105706), "deprecated") at testthat/test-wm_record.R:36
  2: quasi_capture(enquo(object), label, capture_warnings)
  3: .capture(act$val <- eval_bare(get_expr(.quo), get_env(.quo)), ...)
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(.quo), get_env(.quo))
  6: wm_record_(id = 105706)
  7: run_c(id, wm_record, on_error = warning, ...)
  8: ccn(stats::setNames(lapply(id, fun, ...), id))
  9: Filter(function(z) !is.null(z) && NROW(z) > 0, x)
  10: unlist(lapply(x, f))
  11: lapply(x, f)
  12: stats::setNames(lapply(id, fun, ...), id)
  13: lapply(id, fun, ...)
  14: FUN(X[[i]], ...)
  15: wm_GET(file.path(wm_base(), "AphiaRecordsByAphiaIDs"), query = args, ...)
  16: jsonlite::fromJSON(temp$parse("UTF-8"), flatten = TRUE)
  17: parse_and_simplify(txt = txt, simplifyVector = simplifyVector, simplifyDataFrame = simplifyDataFrame, 
         simplifyMatrix = simplifyMatrix, flatten = flatten, ...)
  18: parseJSON(txt, bigint_as_char)
  19: parse_string(txt, bigint_as_char)
  
  -- 3. Error: wm_records_date - works (@test-wm_records_date.R#8)  --------------
  (503) Service Unavailable - AphiaRecordsByDate
  1: wm_records_date(a_date) at testthat/test-wm_records_date.R:8
  2: wm_GET(file.path(wm_base(), "AphiaRecordsByDate"), query = cc(list(startdate = start_date, 
         enddate = end_date, marine_only = as_log(marine_only), offset = offset)), ...)
  3: on_error(sprintf("(%s) %s - %s", temp$status_code, temp$status_http()$message, basename(url)), 
         call. = FALSE)
  
  == testthat results  ===========================================================
  [ OK: 161 | SKIPPED: 30 | WARNINGS: 0 | FAILED: 3 ]
  1. Error: wm_children - offset parameter works (@test-wm_children.R#29) 
  2. Error: wm_record_ - deprecated (@test-wm_record.R#36) 
  3. Error: wm_records_date - works (@test-wm_records_date.R#8) 
  
  Error: testthat unit tests failed
  Execution halted