Running ‘testthat.R’ [1s/249s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(rwars)
  > 
  > test_check("rwars")
  ── 1. Error: Classes can be retrieved (@test_all.R#3)  ─────────────────────────
  Service Unavailable (HTTP 503).
  1: expect_true({
         get_all_planets()
         TRUE
     }) at testthat/test_all.R:3
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: get_all_planets() at testthat/test_all.R:3
  5: query("/planets/", ...)
  6: stop_for_status(result)
  
  ── 2. Error: Classes can be retrieved and parsed (@test_all.R#12)  ─────────────
  Service Unavailable (HTTP 503).
  1: expect_true({
         get_all_planets(parse_result = TRUE)
         TRUE
     }) at testthat/test_all.R:12
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: get_all_planets(parse_result = TRUE) at testthat/test_all.R:12
  5: query("/planets/", ...)
  6: stop_for_status(result)
  
  ── 3. Error: Class continuation works (@test_all.R#21)  ────────────────────────
  Service Unavailable (HTTP 503).
  1: expect_true({
         planet_1 <- get_all_planets(parse_result = TRUE)
         planet_2 <- get_all_planets(getElement(planet_1, "next"))
         TRUE
     }) at testthat/test_all.R:21
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: get_all_planets(parse_result = TRUE) at testthat/test_all.R:22
  5: query("/planets/", ...)
  6: stop_for_status(result)
  
  ── 4. Error: Entities can be retrieved (@test_entities.R#3)  ───────────────────
  Service Unavailable (HTTP 503).
  1: expect_true({
         get_planet(1)
         TRUE
     }) at testthat/test_entities.R:3
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: get_planet(1) at testthat/test_entities.R:3
  5: query(paste0("/planets/", id), ...)
  6: stop_for_status(result)
  
  ── 5. Error: Entities can be retrieved and parsed (@test_entities.R#12)  ───────
  Service Unavailable (HTTP 503).
  1: expect_true({
         get_planet(1, TRUE)
         TRUE
     }) at testthat/test_entities.R:12
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: get_planet(1, TRUE) at testthat/test_entities.R:12
  5: query(paste0("/planets/", id), ...)
  6: stop_for_status(result)
  
  ── 6. Error: Schemas can be retrieved (@test_schemas.R#3)  ─────────────────────
  Service Unavailable (HTTP 503).
  1: expect_true({
         get_planet_schema()
         TRUE
     }) at testthat/test_schemas.R:3
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: get_planet_schema() at testthat/test_schemas.R:3
  5: query("/planets/schema", ...)
  6: stop_for_status(result)
  
  ── 7. Error: Schemas can be retrieved and parsed (@test_schemas.R#12)  ─────────
  Service Unavailable (HTTP 503).
  1: expect_true({
         get_planet_schema(TRUE)
         TRUE
     }) at testthat/test_schemas.R:12
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: get_planet_schema(TRUE) at testthat/test_schemas.R:12
  5: query("/planets/schema", ...)
  6: stop_for_status(result)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 0 SKIPPED: 0 FAILED: 7
  1. Error: Classes can be retrieved (@test_all.R#3) 
  2. Error: Classes can be retrieved and parsed (@test_all.R#12) 
  3. Error: Class continuation works (@test_all.R#21) 
  4. Error: Entities can be retrieved (@test_entities.R#3) 
  5. Error: Entities can be retrieved and parsed (@test_entities.R#12) 
  6. Error: Schemas can be retrieved (@test_schemas.R#3) 
  7. Error: Schemas can be retrieved and parsed (@test_schemas.R#12) 
  
  Error: testthat unit tests failed
  Execution halted