Running ‘testthat.R’ [2s/62s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(rtrek)
  > 
  > test_check("rtrek")
  ── 1. Error: st_book_series returns as expected (@test-api.R#7)  ───────────────
  HTTP error 500.
  1: expect_is(stapi("character", page_count = TRUE), "NULL") at testthat/test-api.R:7
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: stapi("character", page_count = TRUE)
  5: jsonlite::fromJSON(paste0(uri, "0&pageSize=100"))
  6: fromJSON_string(txt = txt, simplifyVector = simplifyVector, simplifyDataFrame = simplifyDataFrame, 
         simplifyMatrix = simplifyMatrix, flatten = flatten, ...)
  7: parseJSON(txt, bigint_as_char)
  8: parse_con(txt, bigint_as_char)
  9: open(con, "rb")
  10: open.connection(con, "rb")
  
  ── 2. Error: rtrek_antiddos option is set on load and checked (@test-api.R#31)  
  HTTP error 500.
  1: expect_warning(stapi("character", page = 2), wrn) at testthat/test-api.R:31
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  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: stapi("character", page = 2)
  7: jsonlite::fromJSON(paste0(uri, "0&pageSize=100"))
  8: fromJSON_string(txt = txt, simplifyVector = simplifyVector, simplifyDataFrame = simplifyDataFrame, 
         simplifyMatrix = simplifyMatrix, flatten = flatten, ...)
  9: parseJSON(txt, bigint_as_char)
  10: parse_con(txt, bigint_as_char)
  11: open(con, "rb")
  12: open.connection(con, "rb")
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 13 SKIPPED: 3 FAILED: 2
  1. Error: st_book_series returns as expected (@test-api.R#7) 
  2. Error: rtrek_antiddos option is set on load and checked (@test-api.R#31) 
  
  Error: testthat unit tests failed
  Execution halted