Last updated on 2025-03-12 23:53:57 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 1.1.4 | 4.03 | 76.99 | 81.02 | NOTE | |
| r-devel-linux-x86_64-debian-gcc | 1.1.4 | 2.98 | 68.90 | 71.88 | NOTE | |
| r-devel-linux-x86_64-fedora-clang | 1.1.4 | 120.99 | NOTE | |||
| r-devel-linux-x86_64-fedora-gcc | 1.1.4 | 131.61 | NOTE | |||
| r-devel-macos-arm64 | 1.1.4 | 154.00 | OK | |||
| r-devel-macos-x86_64 | 1.1.4 | 185.00 | NOTE | |||
| r-devel-windows-x86_64 | 1.1.4 | 7.00 | 119.00 | 126.00 | ERROR | |
| r-patched-linux-x86_64 | 1.1.4 | OK | ||||
| r-release-linux-x86_64 | 1.1.4 | 4.42 | 74.57 | 78.99 | OK | |
| r-release-macos-arm64 | 1.1.4 | 152.00 | OK | |||
| r-release-macos-x86_64 | 1.1.4 | 172.00 | OK | |||
| r-release-windows-x86_64 | 1.1.4 | 7.00 | 157.00 | 164.00 | OK | |
| r-oldrel-macos-arm64 | 1.1.4 | OK | ||||
| r-oldrel-macos-x86_64 | 1.1.4 | 174.00 | OK | |||
| r-oldrel-windows-x86_64 | 1.1.4 | 7.00 | 158.00 | 165.00 | OK |
Version: 1.1.4
Check: DESCRIPTION meta-information
Result: NOTE
Missing dependency on R >= 4.1.0 because package code uses the pipe
|> or function shorthand \(...) syntax added in R 4.1.0.
File(s) using such syntax:
‘grab_crosswalk.R’ ‘lehdr.R’
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-macos-x86_64, r-devel-windows-x86_64
Version: 1.1.4
Check: tests
Result: ERROR
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
Flavor: r-devel-windows-x86_64