Running ‘testthat.R’ [121s/163s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
  > # * https://testthat.r-lib.org/articles/special-files.html
  > 
  > library(testthat)
  > library(ipumsr)
  
  Attaching package: 'ipumsr'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  > 
  > test_check("ipumsr")
  [ FAIL 39 | WARN 0 | SKIP 6 | PASS 673 ]
  
  ══ Skipped tests (6) ═══════════════════════════════════════════════════════════
  • On CRAN (6): 'test_api_helpers.R:4:3', 'test_api_helpers.R:24:3',
    'test_micro_chunked.R:24:3', 'test_read_agg.R:14:3', 'test_read_agg.R:410:3',
    'test_shape_read.R:93:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_api_extract_info.R:30:5'): Can check microdata extract status ──
  Error in `ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_extract_info.R:29:3
   2. │ └─cassette$call_block(...)
   3. ├─base::suppressMessages(submitted_usa_extract <- submit_extract(test_usa_extract())) at test_api_extract_info.R:30:5
   4. │ └─base::withCallingHandlers(...)
   5. └─ipumsr::submit_extract(test_usa_extract())
   6.   └─ipumsr:::ipums_api_extracts_request(...)
   7.     └─ipumsr:::ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, httr::content_type_json())
   8.       └─ipumsr:::validate_api_request(response)
   9.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_extract_info.R:110:5'): Can check NHGIS extract status ─────
  Error in `ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_extract_info.R:109:3
   2. │ └─cassette$call_block(...)
   3. ├─base::suppressMessages(submitted_nhgis_extract <- submit_extract(test_nhgis_extract())) at test_api_extract_info.R:110:5
   4. │ └─base::withCallingHandlers(...)
   5. └─ipumsr::submit_extract(test_nhgis_extract())
   6.   └─ipumsr:::ipums_api_extracts_request(...)
   7.     └─ipumsr:::ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, httr::content_type_json())
   8.       └─ipumsr:::validate_api_request(response)
   9.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_extract_info.R:171:5'): We avoid superfluous checks when getting extract status ──
  Error in `ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_extract_info.R:170:3
   2. │ └─cassette$call_block(...)
   3. ├─base::suppressMessages(submitted_nhgis_extract <- submit_extract(test_nhgis_extract())) at test_api_extract_info.R:171:5
   4. │ └─base::withCallingHandlers(...)
   5. └─ipumsr::submit_extract(test_nhgis_extract())
   6.   └─ipumsr:::ipums_api_extracts_request(...)
   7.     └─ipumsr:::ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, httr::content_type_json())
   8.       └─ipumsr:::validate_api_request(response)
   9.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_extract_info.R:271:5'): Can get extract info for default collection ──
  Error in `ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, 
      ...)`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_extract_info.R:270:3
   2. │ └─cassette$call_block(...)
   3. └─ipumsr::get_extract_history("nhgis") at test_api_extract_info.R:271:5
   4.   └─ipumsr:::ipums_api_paged_request(...)
   5.     └─ipumsr:::ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, ...)
   6.       └─ipumsr:::validate_api_request(response)
   7.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_extract_info.R:317:5'): Can get extract history for all records ──
  Error in `ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, 
      ...)`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_extract_info.R:316:3
   2. │ └─cassette$call_block(...)
   3. └─ipumsr:::ipums_api_paged_request(...) at test_api_extract_info.R:317:5
   4.   └─ipumsr:::ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, ...)
   5.     └─ipumsr:::validate_api_request(response)
   6.       └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_extract_info.R:355:5'): Can get extract history for more records than page size ──
  Error in `ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, 
      ...)`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_extract_info.R:354:3
   2. │ └─cassette$call_block(...)
   3. └─ipumsr:::ipums_api_paged_request(...) at test_api_extract_info.R:355:5
   4.   └─ipumsr:::ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, ...)
   5.     └─ipumsr:::validate_api_request(response)
   6.       └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_helpers.R:219:9'): We handle API auth errors for extract and metadata endpoints ──
  Error in `ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, 
      ...)`: API request did not return JSON
  Backtrace:
       ▆
    1. ├─vcr::use_cassette(...) at test_api_helpers.R:216:3
    2. │ └─cassette$call_block(...)
    3. ├─testthat::expect_error(...) at test_api_helpers.R:217:5
    4. │ └─testthat:::expect_condition_matching(...)
    5. │   └─testthat:::quasi_capture(...)
    6. │     ├─testthat (local) .capture(...)
    7. │     │ └─base::withCallingHandlers(...)
    8. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. ├─withr::with_envvar(...)
   10. │ └─base::force(code)
   11. └─ipumsr::get_metadata_catalog("nhgis", "datasets") at test_api_helpers.R:219:9
   12.   └─ipumsr:::get_summary_metadata(...)
   13.     └─ipumsr:::ipums_api_paged_request(...)
   14.       └─ipumsr:::ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, ...)
   15.         └─ipumsr:::validate_api_request(response)
   16.           └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_helpers.R:234:5'): Can parse API request error details in basic requests ──
  Error in `ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
       ▆
    1. ├─vcr::use_cassette(...) at test_api_helpers.R:233:3
    2. │ └─cassette$call_block(...)
    3. ├─testthat::expect_error(...) at test_api_helpers.R:234:5
    4. │ └─testthat:::expect_condition_matching(...)
    5. │   └─testthat:::quasi_capture(...)
    6. │     ├─testthat (local) .capture(...)
    7. │     │ └─base::withCallingHandlers(...)
    8. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. └─ipumsr:::ipums_api_extracts_request(...)
   10.   └─ipumsr:::ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, httr::content_type_json())
   11.     └─ipumsr:::validate_api_request(response)
   12.       └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_helpers.R:313:5'): Can parse API request error details in paged requests ──
  Error in `ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, 
      ...)`: API request did not return JSON
  Backtrace:
       ▆
    1. ├─vcr::use_cassette(...) at test_api_helpers.R:312:3
    2. │ └─cassette$call_block(...)
    3. ├─testthat::expect_error(...) at test_api_helpers.R:313:5
    4. │ └─testthat:::expect_condition_matching(...)
    5. │   └─testthat:::quasi_capture(...)
    6. │     ├─testthat (local) .capture(...)
    7. │     │ └─base::withCallingHandlers(...)
    8. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. └─ipumsr:::ipums_api_paged_request(...)
   10.   └─ipumsr:::ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, ...)
   11.     └─ipumsr:::validate_api_request(response)
   12.       └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_helpers.R:333:5'): We inform user about invalid extract number request ──
  Error in `ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, 
      ...)`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_helpers.R:332:3
   2. │ └─cassette$call_block(...)
   3. └─ipumsr::get_last_extract_info("nhgis") at test_api_helpers.R:333:5
   4.   └─ipumsr::get_extract_history(...)
   5.     └─ipumsr:::ipums_api_paged_request(...)
   6.       └─ipumsr:::ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, ...)
   7.         └─ipumsr:::validate_api_request(response)
   8.           └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_helpers.R:358:5'): We catch invalid collection specifications during requests ──
  Error in `ipums_api_request("GET", url = "https://api.ipums.org/extracts/?collection=foo&version=2", 
      body = FALSE)`: API request did not return JSON
  Backtrace:
       ▆
    1. ├─vcr::use_cassette(...) at test_api_helpers.R:357:3
    2. │ └─cassette$call_block(...)
    3. ├─testthat::expect_error(...) at test_api_helpers.R:358:5
    4. │ └─testthat:::expect_condition_matching(...)
    5. │   └─testthat:::quasi_capture(...)
    6. │     ├─testthat (local) .capture(...)
    7. │     │ └─base::withCallingHandlers(...)
    8. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. └─ipumsr:::ipums_api_request(...)
   10.   └─ipumsr:::validate_api_request(response)
   11.     └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_helpers.R:373:5'): We warn users about unsupported features detected in an extract ──
  Error in `ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
       ▆
    1. ├─vcr::use_cassette(...) at test_api_helpers.R:372:3
    2. │ └─cassette$call_block(...)
    3. ├─testthat::expect_message(cps_extract <- submit_extract(test_cps_extract())) at test_api_helpers.R:373:5
    4. │ └─testthat:::expect_condition_matching(...)
    5. │   └─testthat:::quasi_capture(...)
    6. │     ├─testthat (local) .capture(...)
    7. │     │ └─base::withCallingHandlers(...)
    8. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. └─ipumsr::submit_extract(test_cps_extract())
   10.   └─ipumsr:::ipums_api_extracts_request(...)
   11.     └─ipumsr:::ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, httr::content_type_json())
   12.       └─ipumsr:::validate_api_request(response)
   13.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_metadata.R:5:5'): We can get summary metadata ──────────────
  Error in `ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, 
      ...)`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_metadata.R:4:3
   2. │ └─cassette$call_block(...)
   3. └─ipumsr::get_metadata_catalog("nhgis", "shapefiles") at test_api_metadata.R:5:5
   4.   └─ipumsr:::get_summary_metadata(...)
   5.     └─ipumsr:::ipums_api_paged_request(...)
   6.       └─ipumsr:::ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, ...)
   7.         └─ipumsr:::validate_api_request(response)
   8.           └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_metadata.R:39:5'): We can iterate through pages to get all records ──
  Error in `ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, 
      ...)`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_metadata.R:38:3
   2. │ └─cassette$call_block(...)
   3. └─ipumsr:::ipums_api_paged_request(...) at test_api_metadata.R:39:5
   4.   └─ipumsr:::ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, ...)
   5.     └─ipumsr:::validate_api_request(response)
   6.       └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_metadata.R:77:5'): We can get metadata for single dataset ──
  Error in `ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_metadata.R:76:3
   2. │ └─cassette$call_block(...)
   3. └─ipumsr::get_metadata("nhgis", dataset = ds) at test_api_metadata.R:77:5
   4.   └─ipumsr:::get_detailed_metadata(...)
   5.     └─ipumsr:::ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, httr::content_type_json())
   6.       └─ipumsr:::validate_api_request(response)
   7.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_metadata.R:108:5'): We can get metadata for single time series table ──
  Error in `ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_metadata.R:107:3
   2. │ └─cassette$call_block(...)
   3. └─ipumsr::get_metadata("nhgis", time_series_table = tst) at test_api_metadata.R:108:5
   4.   └─ipumsr:::get_detailed_metadata(...)
   5.     └─ipumsr:::ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, httr::content_type_json())
   6.       └─ipumsr:::validate_api_request(response)
   7.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_metadata.R:137:5'): We can get metadata for single data table ──
  Error in `ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_metadata.R:136:3
   2. │ └─cassette$call_block(...)
   3. └─ipumsr::get_metadata("nhgis", dataset = ds, data_table = dt) at test_api_metadata.R:137:5
   4.   └─ipumsr:::get_detailed_metadata(...)
   5.     └─ipumsr:::ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, httr::content_type_json())
   6.       └─ipumsr:::validate_api_request(response)
   7.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_metadata.R:156:5'): We can get metadata for a single IHGIS data table w/o dataset ──
  Error in `ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_metadata.R:155:3
   2. │ └─cassette$call_block(...)
   3. └─ipumsr::get_metadata("ihgis", data_table = "AL2001pop.ABK") at test_api_metadata.R:156:5
   4.   └─ipumsr:::get_detailed_metadata(...)
   5.     └─ipumsr:::ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, httr::content_type_json())
   6.       └─ipumsr:::validate_api_request(response)
   7.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_metadata.R:220:5'): get_metadata_nhgis() is deprecated ─────
  Error in `ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, 
      ...)`: API request did not return JSON
  Backtrace:
       ▆
    1. ├─vcr::use_cassette(...) at test_api_metadata.R:219:3
    2. │ └─cassette$call_block(...)
    3. ├─lifecycle::expect_deprecated(shp_meta <- get_metadata_nhgis("shapefiles")) at test_api_metadata.R:220:5
    4. │ └─testthat::expect_warning(...)
    5. │   └─testthat:::expect_condition_matching(...)
    6. │     └─testthat:::quasi_capture(...)
    7. │       ├─testthat (local) .capture(...)
    8. │       │ └─base::withCallingHandlers(...)
    9. │       └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   10. └─ipumsr::get_metadata_nhgis("shapefiles")
   11.   └─ipumsr:::get_summary_metadata(...)
   12.     └─ipumsr:::ipums_api_paged_request(...)
   13.       └─ipumsr:::ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, ...)
   14.         └─ipumsr:::validate_api_request(response)
   15.           └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_process_extract.R:52:5'): Can submit a USA extract ─────────
  Error in `ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_process_extract.R:51:3
   2. │ └─cassette$call_block(...)
   3. ├─base::suppressMessages(submitted_usa_extract <- submit_extract(usa_extract)) at test_api_process_extract.R:52:5
   4. │ └─base::withCallingHandlers(...)
   5. └─ipumsr::submit_extract(usa_extract)
   6.   └─ipumsr:::ipums_api_extracts_request(...)
   7.     └─ipumsr:::ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, httr::content_type_json())
   8.       └─ipumsr:::validate_api_request(response)
   9.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_process_extract.R:114:5'): Can submit a household only USA extract ──
  Error in `ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_process_extract.R:113:3
   2. │ └─cassette$call_block(...)
   3. ├─base::suppressMessages(submitted_household_only_usa_extract <- submit_extract(usa_extract)) at test_api_process_extract.R:114:5
   4. │ └─base::withCallingHandlers(...)
   5. └─ipumsr::submit_extract(usa_extract)
   6.   └─ipumsr:::ipums_api_extracts_request(...)
   7.     └─ipumsr:::ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, httr::content_type_json())
   8.       └─ipumsr:::validate_api_request(response)
   9.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_process_extract.R:131:5'): Can submit a CPS extract ────────
  Error in `ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_process_extract.R:130:3
   2. │ └─cassette$call_block(...)
   3. ├─base::suppressMessages(submitted_cps_extract <- submit_extract(cps_extract)) at test_api_process_extract.R:131:5
   4. │ └─base::withCallingHandlers(...)
   5. └─ipumsr::submit_extract(cps_extract)
   6.   └─ipumsr:::ipums_api_extracts_request(...)
   7.     └─ipumsr:::ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, httr::content_type_json())
   8.       └─ipumsr:::validate_api_request(response)
   9.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_process_extract.R:193:5'): Can submit an ATUS extract ──────
  Error in `ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_process_extract.R:192:3
   2. │ └─cassette$call_block(...)
   3. ├─base::suppressMessages(submitted_atus_extract <- submit_extract(atus_extract)) at test_api_process_extract.R:193:5
   4. │ └─base::withCallingHandlers(...)
   5. └─ipumsr::submit_extract(atus_extract)
   6.   └─ipumsr:::ipums_api_extracts_request(...)
   7.     └─ipumsr:::ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, httr::content_type_json())
   8.       └─ipumsr:::validate_api_request(response)
   9.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_process_extract.R:228:5'): Can submit extract with monetary value adjustment ──
  Error in `ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_process_extract.R:227:3
   2. │ └─cassette$call_block(...)
   3. ├─base::suppressMessages(submitted <- submit_extract(x)) at test_api_process_extract.R:228:5
   4. │ └─base::withCallingHandlers(...)
   5. └─ipumsr::submit_extract(x)
   6.   └─ipumsr:::ipums_api_extracts_request(...)
   7.     └─ipumsr:::ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, httr::content_type_json())
   8.       └─ipumsr:::validate_api_request(response)
   9.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_process_extract.R:239:5'): Error on unsupported monetary value adjustment requests ──
  Error in `ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
       ▆
    1. ├─vcr::use_cassette(...) at test_api_process_extract.R:238:3
    2. │ └─cassette$call_block(...)
    3. ├─testthat::expect_error(...) at test_api_process_extract.R:239:5
    4. │ └─testthat:::expect_condition_matching(...)
    5. │   └─testthat:::quasi_capture(...)
    6. │     ├─testthat (local) .capture(...)
    7. │     │ └─base::withCallingHandlers(...)
    8. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. └─ipumsr::submit_extract(...)
   10.   └─ipumsr:::ipums_api_extracts_request(...)
   11.     └─ipumsr:::ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, httr::content_type_json())
   12.       └─ipumsr:::validate_api_request(response)
   13.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_process_extract.R:271:7'): Submission of time-use variable with wrong owner throws error ──
  Error in `ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test_api_process_extract.R:269:3
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─vcr::use_cassette(...)
    8. │ └─cassette$call_block(...)
    9. └─ipumsr::submit_extract(atus_extract) at test_api_process_extract.R:271:7
   10.   └─ipumsr:::ipums_api_extracts_request(...)
   11.     └─ipumsr:::ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, httr::content_type_json())
   12.       └─ipumsr:::validate_api_request(response)
   13.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_process_extract.R:283:5'): Can submit an NHGIS extract of multiple types ──
  Error in `ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_process_extract.R:282:3
   2. │ └─cassette$call_block(...)
   3. ├─base::suppressMessages(submitted_nhgis_extract <- submit_extract(nhgis_extract)) at test_api_process_extract.R:283:5
   4. │ └─base::withCallingHandlers(...)
   5. └─ipumsr::submit_extract(nhgis_extract)
   6.   └─ipumsr:::ipums_api_extracts_request(...)
   7.     └─ipumsr:::ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, httr::content_type_json())
   8.       └─ipumsr:::validate_api_request(response)
   9.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_process_extract.R:305:5'): Can submit an NHGIS extract of a single type ──
  Error in `ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_process_extract.R:304:3
   2. │ └─cassette$call_block(...)
   3. ├─base::suppressMessages(submitted_nhgis_extract_shp <- submit_extract(nhgis_extract_shp)) at test_api_process_extract.R:305:5
   4. │ └─base::withCallingHandlers(...)
   5. └─ipumsr::submit_extract(nhgis_extract_shp)
   6.   └─ipumsr:::ipums_api_extracts_request(...)
   7.     └─ipumsr:::ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, httr::content_type_json())
   8.       └─ipumsr:::validate_api_request(response)
   9.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_process_extract.R:333:5'): Can submit an IHGIS extract ─────
  Error in `ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_process_extract.R:332:3
   2. │ └─cassette$call_block(...)
   3. ├─base::suppressMessages(submitted_ihgis_extract <- submit_extract(ihgis_extract)) at test_api_process_extract.R:333:5
   4. │ └─base::withCallingHandlers(...)
   5. └─ipumsr::submit_extract(ihgis_extract)
   6.   └─ipumsr:::ipums_api_extracts_request(...)
   7.     └─ipumsr:::ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, httr::content_type_json())
   8.       └─ipumsr:::validate_api_request(response)
   9.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_process_extract.R:360:5'): Can resubmit an extract ─────────
  Error in `ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_process_extract.R:359:3
   2. │ └─cassette$call_block(...)
   3. ├─base::suppressMessages(submitted_nhgis_extract <- submit_extract(test_nhgis_extract())) at test_api_process_extract.R:360:5
   4. │ └─base::withCallingHandlers(...)
   5. └─ipumsr::submit_extract(test_nhgis_extract())
   6.   └─ipumsr:::ipums_api_extracts_request(...)
   7.     └─ipumsr:::ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, httr::content_type_json())
   8.       └─ipumsr:::validate_api_request(response)
   9.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_process_extract.R:396:5'): Revisions update status of submitted extract ──
  Error in `ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, 
      ...)`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_process_extract.R:395:3
   2. │ └─cassette$call_block(...)
   3. └─ipumsr::get_extract_history("usa") at test_api_process_extract.R:396:5
   4.   └─ipumsr:::ipums_api_paged_request(...)
   5.     └─ipumsr:::ipums_api_request("GET", url = url, body = FALSE, api_key = api_key, ...)
   6.       └─ipumsr:::validate_api_request(response)
   7.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_process_extract.R:429:5'): Can download microdata extract with extract object ──
  Error in `ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_process_extract.R:428:3
   2. │ └─cassette$call_block(...)
   3. ├─base::suppressMessages(submitted_usa_extract <- submit_extract(test_usa_extract())) at test_api_process_extract.R:429:5
   4. │ └─base::withCallingHandlers(...)
   5. └─ipumsr::submit_extract(test_usa_extract())
   6.   └─ipumsr:::ipums_api_extracts_request(...)
   7.     └─ipumsr:::ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, httr::content_type_json())
   8.       └─ipumsr:::validate_api_request(response)
   9.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_process_extract.R:487:5'): Can download NHGIS extract with extract object ──
  Error in `ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_process_extract.R:486:3
   2. │ └─cassette$call_block(...)
   3. ├─base::suppressMessages(submitted_nhgis_extract <- submit_extract(test_nhgis_extract())) at test_api_process_extract.R:487:5
   4. │ └─base::withCallingHandlers(...)
   5. └─ipumsr::submit_extract(test_nhgis_extract())
   6.   └─ipumsr:::ipums_api_extracts_request(...)
   7.     └─ipumsr:::ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, httr::content_type_json())
   8.       └─ipumsr:::validate_api_request(response)
   9.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_process_extract.R:559:5'): Can download extract with extract id ──
  Error in `ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_process_extract.R:558:3
   2. │ └─cassette$call_block(...)
   3. ├─base::suppressMessages(submitted_usa_extract <- submit_extract(test_usa_extract())) at test_api_process_extract.R:559:5
   4. │ └─base::withCallingHandlers(...)
   5. └─ipumsr::submit_extract(test_usa_extract())
   6.   └─ipumsr:::ipums_api_extracts_request(...)
   7.     └─ipumsr:::ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, httr::content_type_json())
   8.       └─ipumsr:::validate_api_request(response)
   9.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_process_extract.R:620:5'): Can download shapefile-only extract ──
  Error in `ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_process_extract.R:619:3
   2. │ └─cassette$call_block(...)
   3. ├─base::suppressMessages(submitted_nhgis_extract_shp <- submit_extract(test_nhgis_extract_shp())) at test_api_process_extract.R:620:5
   4. │ └─base::withCallingHandlers(...)
   5. └─ipumsr::submit_extract(test_nhgis_extract_shp())
   6.   └─ipumsr:::ipums_api_extracts_request(...)
   7.     └─ipumsr:::ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, httr::content_type_json())
   8.       └─ipumsr:::validate_api_request(response)
   9.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_process_extract.R:656:5'): Download extract errors on incomplete extract ──
  Error in `ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
       ▆
    1. ├─vcr::use_cassette(...) at test_api_process_extract.R:655:3
    2. │ └─cassette$call_block(...)
    3. ├─testthat::expect_error(...) at test_api_process_extract.R:656:5
    4. │ └─testthat:::expect_condition_matching(...)
    5. │   └─testthat:::quasi_capture(...)
    6. │     ├─testthat (local) .capture(...)
    7. │     │ └─base::withCallingHandlers(...)
    8. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. ├─base::suppressMessages(download_extract(submit_extract(test_usa_extract())))
   10. │ └─base::withCallingHandlers(...)
   11. ├─ipumsr::download_extract(submit_extract(test_usa_extract()))
   12. │ └─ipumsr:::standardize_extract_identifier(extract)
   13. └─ipumsr::submit_extract(test_usa_extract())
   14.   └─ipumsr:::ipums_api_extracts_request(...)
   15.     └─ipumsr:::ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, httr::content_type_json())
   16.       └─ipumsr:::validate_api_request(response)
   17.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_process_extract.R:696:5'): Can read downloaded files with ipumsr readers ──
  Error in `ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_process_extract.R:695:3
   2. │ └─cassette$call_block(...)
   3. ├─base::suppressMessages(submitted_nhgis_extract <- submit_extract(test_nhgis_extract())) at test_api_process_extract.R:696:5
   4. │ └─base::withCallingHandlers(...)
   5. └─ipumsr::submit_extract(test_nhgis_extract())
   6.   └─ipumsr:::ipums_api_extracts_request(...)
   7.     └─ipumsr:::ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, httr::content_type_json())
   8.       └─ipumsr:::validate_api_request(response)
   9.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_process_extract.R:758:5'): Can add to a submitted extract ──
  Error in `ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_process_extract.R:757:3
   2. │ └─cassette$call_block(...)
   3. ├─base::suppressMessages(submitted_usa_extract <- submit_extract(test_usa_extract())) at test_api_process_extract.R:758:5
   4. │ └─base::withCallingHandlers(...)
   5. └─ipumsr::submit_extract(test_usa_extract())
   6.   └─ipumsr:::ipums_api_extracts_request(...)
   7.     └─ipumsr:::ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, httr::content_type_json())
   8.       └─ipumsr:::validate_api_request(response)
   9.         └─rlang::abort("API request did not return JSON", call = call)
  ── Error ('test_api_process_extract.R:786:5'): We can export to and import from JSON, submitted extract ──
  Error in `ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, 
      httr::content_type_json())`: API request did not return JSON
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test_api_process_extract.R:785:3
   2. │ └─cassette$call_block(...)
   3. ├─base::suppressMessages(submitted_usa_extract <- submit_extract(test_usa_extract())) at test_api_process_extract.R:786:5
   4. │ └─base::withCallingHandlers(...)
   5. └─ipumsr::submit_extract(test_usa_extract())
   6.   └─ipumsr:::ipums_api_extracts_request(...)
   7.     └─ipumsr:::ipums_api_request(verb = verb, url = url, body = body, api_key = api_key, httr::content_type_json())
   8.       └─ipumsr:::validate_api_request(response)
   9.         └─rlang::abort("API request did not return JSON", call = call)
  
  [ FAIL 39 | WARN 0 | SKIP 6 | PASS 673 ]
  Error: Test failures
  Execution halted