Running 'testthat.R' [63s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(lehdr)
  > library(dplyr)
  
  Attaching package: 'dplyr'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  > 
  > test_check("lehdr")
  Downloading https://lehd.ces.census.gov/data/lodes/LODES8/de/od/de_od_main_JT00_2020.csv.gz to C:\Users\CRAN\AppData\Local\R\cache\R\lehdr\de_od_main_JT00_2020.csv.gz now...
  Downloading https://lehd.ces.census.gov/data/lodes/LODES7/de/rac/de_rac_S000_JT00_2014.csv.gz to C:\Users\CRAN\AppData\Local\R\cache\R\lehdr\de_rac_S000_JT00_2014.csv.gz now...
  Downloading https://lehd.ces.census.gov/data/lodes/LODES5/de/wac/de_wac_S000_JT01_2009.csv.gz to C:\Users\CRAN\AppData\Local\R\cache\R\lehdr\de_wac_S000_JT01_2009.csv.gz now...
  Downloading https://lehd.ces.census.gov/data/lodes/LODES5/nd/od/nd_od_main_JT01_2007.csv.gz to C:\Users\CRAN\AppData\Local\R\cache\R\lehdr\nd_od_main_JT01_2007.csv.gz now...
  Downloading https://lehd.ces.census.gov/data/lodes/LODES7/de/wac/de_wac_S000_JT00_2013.csv.gz to C:\Users\CRAN\AppData\Local\R\cache\R\lehdr\de_wac_S000_JT00_2013.csv.gz now...
  Downloading crosswalk https://lehd.ces.census.gov/data/lodes/LODES8/vt/vt_xwalk.csv.gz to C:\Users\CRAN\AppData\Local\R\cache\R\lehdr\vt_xwalk.csv.gz
  [ FAIL 6 | WARN 0 | SKIP 0 | PASS 0 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-lehdr.R:2:3'): test grab lodes od ──────────────────────────────
  Error in `(function (cnd) 
  {
      rlang::abort(c("lehdr: Could not establish connection to LODES FTP server.", 
          i = "Please check internet connection."))
  })(structure(list(message = "Failed to perform HTTP request.", 
      trace = structure(list(call = list(expect_equal(grab_lodes(state = "de", 
          year = 2020, version = "LODES8", lodes_type = "od", job_type = "JT00", 
          segment = "SA01", state_part = "main", agg_geo = "tract") %>% 
          dim, c(36671, 14)), quasi_label(enquo(object), label, 
          arg = "object"), eval_bare(expr, quo_get_env(quo)), grab_lodes(state = "de", 
          year = 2020, version = "LODES8", lodes_type = "od", job_type = "JT00", 
          segment = "SA01", state_part = "main", agg_geo = "tract") %>% 
          dim, grab_lodes(state = "de", year = 2020, version = "LODES8", 
          lodes_type = "od", job_type = "JT00", segment = "SA01", 
          state_part = "main", agg_geo = "tract"), withCallingHandlers(lodes_resp <- req_perform(req_error(lodes_req, 
          is_error = function(lodes_resp) FALSE), path = fil), 
          httr2_failure = function(cnd) {
              rlang::abort(c("lehdr: Could not establish connection to LODES FTP server.", 
                  i = "Please check internet connection."))
          }), req_perform(req_error(lodes_req, is_error = function(lodes_resp) FALSE), 
          path = fil), handle_resp(req, resp, error_call = error_call), 
          cnd_signal(resp)), parent = c(0L, 1L, 2L, 0L, 0L, 5L, 
      5L, 7L, 8L), visible = c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
      TRUE, FALSE, FALSE), namespace = c("testthat", "testthat", 
      "rlang", NA, "lehdr", "base", "httr2", "httr2", "rlang"), 
          scope = c("::", "::", "::", NA, "::", "::", "::", ":::", 
          "::")), row.names = c(NA, -9L), version = 2L, class = c("rlang_trace", 
      "rlib_trace", "tbl", "data.frame")), parent = structure(list(
          message = "Timeout was reached [lehd.ces.census.gov]: SSL/TLS connection timeout", 
          call = curl::curl_fetch_disk(url, path, handle)), class = c("curl_error_operation_timedout", 
      "curl_error", "error", "condition")), call = req_perform(req_error(lodes_req, 
          is_error = function(lodes_resp) FALSE), path = fil), 
      request = structure(list(url = structure("https://lehd.ces.census.gov/data/lodes/LODES8/de/od/de_od_main_JT00_2020.csv.gz", class = c("glue", 
      "character")), method = NULL, headers = list(), body = NULL, 
          fields = list(), options = list(), policies = list(error_is_error = function (lodes_resp) 
          FALSE), state = <environment>), class = "httr2_request")), class = c("httr2_failure", 
  "httr2_error", "rlang_error", "error", "condition")))`: lehdr: Could not establish connection to LODES FTP server.
  i Please check internet connection.
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-lehdr.R:2:3
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─... %>% dim
    5. ├─lehdr::grab_lodes(...)
    6. │ ├─base::withCallingHandlers(...)
    7. │ └─httr2::req_perform(...)
    8. │   └─httr2:::handle_resp(req, resp, error_call = error_call)
    9. │     └─rlang::cnd_signal(resp)
   10. │       └─rlang:::signal_abort(cnd)
   11. │         └─base::signalCondition(cnd)
   12. └─lehdr (local) `<fn>`(`<httr2_fl>`)
   13.   └─rlang::abort(...)
  ── Error ('test-lehdr.R:35:3'): test grab lodes rac ────────────────────────────
  Error in `(function (cnd) 
  {
      rlang::abort(c("lehdr: Could not establish connection to LODES FTP server.", 
          i = "Please check internet connection."))
  })(structure(list(message = "Failed to perform HTTP request.", 
      trace = structure(list(call = list(expect_equal(grab_lodes(state = "de", 
          year = 2014, version = "LODES7", lodes_type = "rac", 
          agg_geo = "tract") %>% dim, c(218, 44)), quasi_label(enquo(object), 
          label, arg = "object"), eval_bare(expr, quo_get_env(quo)), 
          grab_lodes(state = "de", year = 2014, version = "LODES7", 
              lodes_type = "rac", agg_geo = "tract") %>% dim, grab_lodes(state = "de", 
              year = 2014, version = "LODES7", lodes_type = "rac", 
              agg_geo = "tract"), withCallingHandlers(lodes_resp <- req_perform(req_error(lodes_req, 
              is_error = function(lodes_resp) FALSE), path = fil), 
              httr2_failure = function(cnd) {
                  rlang::abort(c("lehdr: Could not establish connection to LODES FTP server.", 
                    i = "Please check internet connection."))
              }), req_perform(req_error(lodes_req, is_error = function(lodes_resp) FALSE), 
              path = fil), handle_resp(req, resp, error_call = error_call), 
          cnd_signal(resp)), parent = c(0L, 1L, 2L, 0L, 0L, 5L, 
      5L, 7L, 8L), visible = c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
      TRUE, FALSE, FALSE), namespace = c("testthat", "testthat", 
      "rlang", NA, "lehdr", "base", "httr2", "httr2", "rlang"), 
          scope = c("::", "::", "::", NA, "::", "::", "::", ":::", 
          "::")), row.names = c(NA, -9L), version = 2L, class = c("rlang_trace", 
      "rlib_trace", "tbl", "data.frame")), parent = structure(list(
          message = "Timeout was reached [lehd.ces.census.gov]: SSL/TLS connection timeout", 
          call = curl::curl_fetch_disk(url, path, handle)), class = c("curl_error_operation_timedout", 
      "curl_error", "error", "condition")), call = req_perform(req_error(lodes_req, 
          is_error = function(lodes_resp) FALSE), path = fil), 
      request = structure(list(url = structure("https://lehd.ces.census.gov/data/lodes/LODES7/de/rac/de_rac_S000_JT00_2014.csv.gz", class = c("glue", 
      "character")), method = NULL, headers = list(), body = NULL, 
          fields = list(), options = list(), policies = list(error_is_error = function (lodes_resp) 
          FALSE), state = <environment>), class = "httr2_request")), class = c("httr2_failure", 
  "httr2_error", "rlang_error", "error", "condition")))`: lehdr: Could not establish connection to LODES FTP server.
  i Please check internet connection.
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-lehdr.R:35:3
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─... %>% dim
    5. ├─lehdr::grab_lodes(...)
    6. │ ├─base::withCallingHandlers(...)
    7. │ └─httr2::req_perform(...)
    8. │   └─httr2:::handle_resp(req, resp, error_call = error_call)
    9. │     └─rlang::cnd_signal(resp)
   10. │       └─rlang:::signal_abort(cnd)
   11. │         └─base::signalCondition(cnd)
   12. └─lehdr (local) `<fn>`(`<httr2_fl>`)
   13.   └─rlang::abort(...)
  ── Error ('test-lehdr.R:56:3'): test grab lodes wac ────────────────────────────
  Error in `(function (cnd) 
  {
      rlang::abort(c("lehdr: Could not establish connection to LODES FTP server.", 
          i = "Please check internet connection."))
  })(structure(list(message = "Failed to perform HTTP request.", 
      trace = structure(list(call = list(expect_equal(grab_lodes(state = "de", 
          year = 2009, version = "LODES5", lodes_type = "wac", 
          job_type = "JT01", agg_geo = "tract") %>% dim, c(197, 
          42)), quasi_label(enquo(object), label, arg = "object"), 
          eval_bare(expr, quo_get_env(quo)), grab_lodes(state = "de", 
              year = 2009, version = "LODES5", lodes_type = "wac", 
              job_type = "JT01", agg_geo = "tract") %>% dim, grab_lodes(state = "de", 
              year = 2009, version = "LODES5", lodes_type = "wac", 
              job_type = "JT01", agg_geo = "tract"), withCallingHandlers(lodes_resp <- req_perform(req_error(lodes_req, 
              is_error = function(lodes_resp) FALSE), path = fil), 
              httr2_failure = function(cnd) {
                  rlang::abort(c("lehdr: Could not establish connection to LODES FTP server.", 
                    i = "Please check internet connection."))
              }), req_perform(req_error(lodes_req, is_error = function(lodes_resp) FALSE), 
              path = fil), handle_resp(req, resp, error_call = error_call), 
          cnd_signal(resp)), parent = c(0L, 1L, 2L, 0L, 0L, 5L, 
      5L, 7L, 8L), visible = c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
      TRUE, FALSE, FALSE), namespace = c("testthat", "testthat", 
      "rlang", NA, "lehdr", "base", "httr2", "httr2", "rlang"), 
          scope = c("::", "::", "::", NA, "::", "::", "::", ":::", 
          "::")), row.names = c(NA, -9L), version = 2L, class = c("rlang_trace", 
      "rlib_trace", "tbl", "data.frame")), parent = structure(list(
          message = "Timeout was reached [lehd.ces.census.gov]: SSL/TLS connection timeout", 
          call = curl::curl_fetch_disk(url, path, handle)), class = c("curl_error_operation_timedout", 
      "curl_error", "error", "condition")), call = req_perform(req_error(lodes_req, 
          is_error = function(lodes_resp) FALSE), path = fil), 
      request = structure(list(url = structure("https://lehd.ces.census.gov/data/lodes/LODES5/de/wac/de_wac_S000_JT01_2009.csv.gz", class = c("glue", 
      "character")), method = NULL, headers = list(), body = NULL, 
          fields = list(), options = list(), policies = list(error_is_error = function (lodes_resp) 
          FALSE), state = <environment>), class = "httr2_request")), class = c("httr2_failure", 
  "httr2_error", "rlang_error", "error", "condition")))`: lehdr: Could not establish connection to LODES FTP server.
  i Please check internet connection.
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-lehdr.R:56:3
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─... %>% dim
    5. ├─lehdr::grab_lodes(...)
    6. │ ├─base::withCallingHandlers(...)
    7. │ └─httr2::req_perform(...)
    8. │   └─httr2:::handle_resp(req, resp, error_call = error_call)
    9. │     └─rlang::cnd_signal(resp)
   10. │       └─rlang:::signal_abort(cnd)
   11. │         └─base::signalCondition(cnd)
   12. └─lehdr (local) `<fn>`(`<httr2_fl>`)
   13.   └─rlang::abort(...)
  ── Error ('test-lehdr.R:76:3'): test grab lodes od for multiple states and years ──
  Error in `(function (cnd) 
  {
      rlang::abort(c("lehdr: Could not establish connection to LODES FTP server.", 
          i = "Please check internet connection."))
  })(structure(list(message = "Failed to perform HTTP request.", 
      trace = structure(list(call = list(expect_equal(grab_lodes(state = c("nd", 
          "vt"), year = c(2007, 2008), version = "LODES5", lodes_type = "od", 
          job_type = "JT01", segment = "SA01", state_part = "main", 
          agg_geo = "tract") %>% dim, c(65262, 14)), quasi_label(enquo(object), 
          label, arg = "object"), eval_bare(expr, quo_get_env(quo)), 
          grab_lodes(state = c("nd", "vt"), year = c(2007, 2008), 
              version = "LODES5", lodes_type = "od", job_type = "JT01", 
              segment = "SA01", state_part = "main", agg_geo = "tract") %>% 
              dim, grab_lodes(state = c("nd", "vt"), year = c(2007, 
              2008), version = "LODES5", lodes_type = "od", job_type = "JT01", 
              segment = "SA01", state_part = "main", agg_geo = "tract"), 
          apply(state_year, 1, function(df_row) grab_lodes(df_row[1], 
              df_row[2], version = version, lodes_type = lodes_type, 
              job_type = job_type, segment = segment, agg_geo = agg_geo, 
              state_part = state_part, download_dir = download_dir)), 
          FUN(newX[, i], ...), grab_lodes(df_row[1], df_row[2], 
              version = version, lodes_type = lodes_type, job_type = job_type, 
              segment = segment, agg_geo = agg_geo, state_part = state_part, 
              download_dir = download_dir), withCallingHandlers(lodes_resp <- req_perform(req_error(lodes_req, 
              is_error = function(lodes_resp) FALSE), path = fil), 
              httr2_failure = function(cnd) {
                  rlang::abort(c("lehdr: Could not establish connection to LODES FTP server.", 
                    i = "Please check internet connection."))
              }), req_perform(req_error(lodes_req, is_error = function(lodes_resp) FALSE), 
              path = fil), handle_resp(req, resp, error_call = error_call), 
          cnd_signal(resp)), parent = c(0L, 1L, 2L, 0L, 0L, 5L, 
      6L, 7L, 8L, 8L, 10L, 11L), visible = c(TRUE, TRUE, TRUE, 
      TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE), 
          namespace = c("testthat", "testthat", "rlang", NA, "lehdr", 
          "base", "lehdr", "lehdr", "base", "httr2", "httr2", "rlang"
          ), scope = c("::", "::", "::", NA, "::", "::", "local", 
          "::", "::", "::", ":::", "::")), row.names = c(NA, -12L
      ), version = 2L, class = c("rlang_trace", "rlib_trace", "tbl", 
      "data.frame")), parent = structure(list(message = "Timeout was reached [lehd.ces.census.gov]: SSL/TLS connection timeout", 
          call = curl::curl_fetch_disk(url, path, handle)), class = c("curl_error_operation_timedout", 
      "curl_error", "error", "condition")), call = req_perform(req_error(lodes_req, 
          is_error = function(lodes_resp) FALSE), path = fil), 
      request = structure(list(url = structure("https://lehd.ces.census.gov/data/lodes/LODES5/nd/od/nd_od_main_JT01_2007.csv.gz", class = c("glue", 
      "character")), method = NULL, headers = list(), body = NULL, 
          fields = list(), options = list(), policies = list(error_is_error = function (lodes_resp) 
          FALSE), state = <environment>), class = "httr2_request")), class = c("httr2_failure", 
  "httr2_error", "rlang_error", "error", "condition")))`: lehdr: Could not establish connection to LODES FTP server.
  i Please check internet connection.
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-lehdr.R:76:3
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─... %>% dim
    5. ├─lehdr::grab_lodes(...)
    6. │ └─base::apply(...)
    7. │   └─lehdr (local) FUN(newX[, i], ...)
    8. │     └─lehdr::grab_lodes(...)
    9. │       ├─base::withCallingHandlers(...)
   10. │       └─httr2::req_perform(...)
   11. │         └─httr2:::handle_resp(req, resp, error_call = error_call)
   12. │           └─rlang::cnd_signal(resp)
   13. │             └─rlang:::signal_abort(cnd)
   14. │               └─base::signalCondition(cnd)
   15. └─lehdr (local) `<fn>`(`<httr2_fl>`)
   16.   └─rlang::abort(...)
  ── Error ('test-lehdr.R:104:3'): test grab lodes wac for multiple states and years ──
  Error in `(function (cnd) 
  {
      rlang::abort(c("lehdr: Could not establish connection to LODES FTP server.", 
          i = "Please check internet connection."))
  })(structure(list(message = "Failed to perform HTTP request.", 
      trace = structure(list(call = list(expect_equal(grab_lodes(state = c("de", 
          "vt"), year = c(2013, 2014), version = "LODES7", lodes_type = "wac", 
          agg_geo = "tract") %>% dim, c(798, 54)), quasi_label(enquo(object), 
          label, arg = "object"), eval_bare(expr, quo_get_env(quo)), 
          grab_lodes(state = c("de", "vt"), year = c(2013, 2014), 
              version = "LODES7", lodes_type = "wac", agg_geo = "tract") %>% 
              dim, grab_lodes(state = c("de", "vt"), year = c(2013, 
              2014), version = "LODES7", lodes_type = "wac", agg_geo = "tract"), 
          apply(state_year, 1, function(df_row) grab_lodes(df_row[1], 
              df_row[2], version = version, lodes_type = lodes_type, 
              job_type = job_type, segment = segment, agg_geo = agg_geo, 
              state_part = state_part, download_dir = download_dir)), 
          FUN(newX[, i], ...), grab_lodes(df_row[1], df_row[2], 
              version = version, lodes_type = lodes_type, job_type = job_type, 
              segment = segment, agg_geo = agg_geo, state_part = state_part, 
              download_dir = download_dir), withCallingHandlers(lodes_resp <- req_perform(req_error(lodes_req, 
              is_error = function(lodes_resp) FALSE), path = fil), 
              httr2_failure = function(cnd) {
                  rlang::abort(c("lehdr: Could not establish connection to LODES FTP server.", 
                    i = "Please check internet connection."))
              }), req_perform(req_error(lodes_req, is_error = function(lodes_resp) FALSE), 
              path = fil), handle_resp(req, resp, error_call = error_call), 
          cnd_signal(resp)), parent = c(0L, 1L, 2L, 0L, 0L, 5L, 
      6L, 7L, 8L, 8L, 10L, 11L), visible = c(TRUE, TRUE, TRUE, 
      TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE), 
          namespace = c("testthat", "testthat", "rlang", NA, "lehdr", 
          "base", "lehdr", "lehdr", "base", "httr2", "httr2", "rlang"
          ), scope = c("::", "::", "::", NA, "::", "::", "local", 
          "::", "::", "::", ":::", "::")), row.names = c(NA, -12L
      ), version = 2L, class = c("rlang_trace", "rlib_trace", "tbl", 
      "data.frame")), parent = structure(list(message = "Timeout was reached [lehd.ces.census.gov]: SSL/TLS connection timeout", 
          call = curl::curl_fetch_disk(url, path, handle)), class = c("curl_error_operation_timedout", 
      "curl_error", "error", "condition")), call = req_perform(req_error(lodes_req, 
          is_error = function(lodes_resp) FALSE), path = fil), 
      request = structure(list(url = structure("https://lehd.ces.census.gov/data/lodes/LODES7/de/wac/de_wac_S000_JT00_2013.csv.gz", class = c("glue", 
      "character")), method = NULL, headers = list(), body = NULL, 
          fields = list(), options = list(), policies = list(error_is_error = function (lodes_resp) 
          FALSE), state = <environment>), class = "httr2_request")), class = c("httr2_failure", 
  "httr2_error", "rlang_error", "error", "condition")))`: lehdr: Could not establish connection to LODES FTP server.
  i Please check internet connection.
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-lehdr.R:104:3
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─... %>% dim
    5. ├─lehdr::grab_lodes(...)
    6. │ └─base::apply(...)
    7. │   └─lehdr (local) FUN(newX[, i], ...)
    8. │     └─lehdr::grab_lodes(...)
    9. │       ├─base::withCallingHandlers(...)
   10. │       └─httr2::req_perform(...)
   11. │         └─httr2:::handle_resp(req, resp, error_call = error_call)
   12. │           └─rlang::cnd_signal(resp)
   13. │             └─rlang:::signal_abort(cnd)
   14. │               └─base::signalCondition(cnd)
   15. └─lehdr (local) `<fn>`(`<httr2_fl>`)
   16.   └─rlang::abort(...)
  ── Error ('test-lehdr.R:131:3'): test grab crosswalk ───────────────────────────
  Error in `(function (cnd) 
  {
      rlang::abort(c("lehdr: Could not establish connection to LODES FTP server.", 
          i = "Please check internet connection."))
  })(structure(list(message = "Failed to perform HTTP request.", 
      trace = structure(list(call = list(expect_equal(grab_crosswalk("vt") %>% 
          dim, c(24611, 41)), quasi_label(enquo(object), label, 
          arg = "object"), eval_bare(expr, quo_get_env(quo)), grab_crosswalk("vt") %>% 
          dim, grab_crosswalk("vt"), vdownload_xwalk(url = urls, 
          download_dir = download_dir) %>% vread_xwalk() %>% dplyr::bind_rows(), 
          dplyr::bind_rows(.), list2(...), vread_xwalk(.), lapply(as.list(match.call())[-1L], 
              eval, parent.frame()), FUN(X[[i]], ...), FUN(X[[i]], 
              ...), vdownload_xwalk(url = urls, download_dir = download_dir), 
          do.call("mapply", c(FUN = FUN, args[dovec], MoreArgs = list(args[!dovec]), 
              SIMPLIFY = SIMPLIFY, USE.NAMES = USE.NAMES)), mapply(FUN = `<fn>`, 
              url = `<glue>`, MoreArgs = `<named list>`, SIMPLIFY = TRUE, 
              USE.NAMES = TRUE), `<fn>`(url = dots[[1L]][[1L]], 
              download_dir = "C:\\Users\\CRAN\\AppData\\Local\\R\\cache\\R\\lehdr"), 
          withCallingHandlers(lodes_resp <- req_perform(req_error(lodes_req, 
              is_error = function(lodes_resp) FALSE), path = fil), 
              httr2_failure = function(cnd) {
                  rlang::abort(c("lehdr: Could not establish connection to LODES FTP server.", 
                    i = "Please check internet connection."))
              }), req_perform(req_error(lodes_req, is_error = function(lodes_resp) FALSE), 
              path = fil), handle_resp(req, resp, error_call = error_call), 
          cnd_signal(resp)), parent = c(0L, 1L, 2L, 0L, 0L, 5L, 
      0L, 7L, 0L, 9L, 10L, 11L, 5L, 13L, 13L, 15L, 16L, 16L, 18L, 
      19L), visible = c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
      TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
      TRUE, FALSE, FALSE), namespace = c("testthat", "testthat", 
      "rlang", NA, "lehdr", NA, "dplyr", "rlang", "base", "base", 
      "base", "base", "base", "base", "base", "lehdr", "base", 
      "httr2", "httr2", "rlang"), scope = c("::", "::", "::", NA, 
      "::", NA, "::", "::", "local", "::", "local", "local", "local", 
      "::", "::", "local", "::", "::", ":::", "::")), row.names = c(NA, 
      -20L), version = 2L, class = c("rlang_trace", "rlib_trace", 
      "tbl", "data.frame")), parent = structure(list(message = "Timeout was reached [lehd.ces.census.gov]: SSL/TLS connection timeout", 
          call = curl::curl_fetch_disk(url, path, handle)), class = c("curl_error_operation_timedout", 
      "curl_error", "error", "condition")), call = req_perform(req_error(lodes_req, 
          is_error = function(lodes_resp) FALSE), path = fil), 
      request = structure(list(url = structure("https://lehd.ces.census.gov/data/lodes/LODES8/vt/vt_xwalk.csv.gz", class = c("glue", 
      "character")), method = NULL, headers = list(), body = NULL, 
          fields = list(), options = list(), policies = list(error_is_error = function (lodes_resp) 
          FALSE), state = <environment>), class = "httr2_request")), class = c("httr2_failure", 
  "httr2_error", "rlang_error", "error", "condition")))`: lehdr: Could not establish connection to LODES FTP server.
  i Please check internet connection.
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-lehdr.R:131:3
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─grab_crosswalk("vt") %>% dim
    5. ├─lehdr::grab_crosswalk("vt")
    6. │ ├─... %>% dplyr::bind_rows()
    7. │ └─base (local) vdownload_xwalk(url = urls, download_dir = download_dir)
    8. │   ├─base::do.call(...)
    9. │   └─base::mapply(...)
   10. │     └─lehdr (local) `<fn>`(url = dots[[1L]][[1L]], download_dir = "C:\\Users\\CRAN\\AppData\\Local\\R\\cache\\R\\lehdr")
   11. │       ├─base::withCallingHandlers(...)
   12. │       └─httr2::req_perform(...)
   13. │         └─httr2:::handle_resp(req, resp, error_call = error_call)
   14. │           └─rlang::cnd_signal(resp)
   15. │             └─rlang:::signal_abort(cnd)
   16. │               └─base::signalCondition(cnd)
   17. ├─dplyr::bind_rows(.)
   18. │ └─rlang::list2(...)
   19. ├─base (local) vread_xwalk(.)
   20. │ └─base::lapply(as.list(match.call())[-1L], eval, parent.frame())
   21. │   └─base (local) FUN(X[[i]], ...)
   22. │     └─base (local) FUN(X[[i]], ...)
   23. └─lehdr (local) `<fn>`(`<httr2_fl>`)
   24.   └─rlang::abort(...)
  
  [ FAIL 6 | WARN 0 | SKIP 0 | PASS 0 ]
  Error: Test failures
  Execution halted