Last updated on 2025-05-19 01:49:57 CEST.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.2.1 | 2.44 | 28.76 | 31.20 | OK | |
| r-devel-linux-x86_64-debian-gcc | 0.2.1 | 1.91 | 21.89 | 23.80 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 0.2.1 | 45.20 | ERROR | |||
| r-devel-linux-x86_64-fedora-gcc | 0.2.1 | 45.81 | OK | |||
| r-devel-windows-x86_64 | 0.2.1 | 4.00 | 58.00 | 62.00 | ERROR | |
| r-patched-linux-x86_64 | 0.2.1 | 2.40 | 27.14 | 29.54 | OK | |
| r-release-linux-x86_64 | 0.2.1 | 2.34 | 27.16 | 29.50 | OK | |
| r-release-macos-arm64 | 0.2.1 | 30.00 | OK | |||
| r-release-macos-x86_64 | 0.2.1 | 47.00 | OK | |||
| r-release-windows-x86_64 | 0.2.1 | 5.00 | 61.00 | 66.00 | OK | |
| r-oldrel-macos-arm64 | 0.2.1 | 36.00 | OK | |||
| r-oldrel-macos-x86_64 | 0.2.1 | 43.00 | OK | |||
| r-oldrel-windows-x86_64 | 0.2.1 | 5.00 | 61.00 | 66.00 | OK |
Version: 0.2.1
Check: examples
Result: ERROR
Running examples in ‘kofdata-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: get_collection
> ### Title: Download Pre-Defined collection
> ### Aliases: get_collection
>
> ### ** Examples
>
> get_collection("ds_kmi_mixed_freq",show_progress = TRUE)
|
| | 0%
|
|======================================================================| 100%
Error in content(response, as = "text") : is.response(x) is not TRUE
Calls: get_collection -> fromJSON -> content -> stopifnot
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.2.1
Check: tests
Result: ERROR
Running ‘testthat.R’ [2s/3s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(kofdata)
Loading required package: jsonlite
Loading required package: httr
>
> test_check("kofdata")
[ FAIL 14 | WARN 0 | SKIP 6 | PASS 1 ]
══ Skipped tests (6) ═══════════════════════════════════════════════════════════
• nchar(apikey) == 0 is TRUE (6): 'test_get_collection.R:13:3',
'test_get_remaining_quota.R:6:3', 'test_get_time_series.R:13:3',
'test_list_cached_files.R:6:3', 'test_list_collections.R:20:3',
'test_list_keys.R:22:3'
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test_get_collection.R:4:3'): get_collection works for public collection ──
Error in `content(response, as = "text")`: is.response(x) is not TRUE
Backtrace:
▆
1. └─kofdata::get_collection("baro_vintages_monthly") at test_get_collection.R:4:3
2. ├─jsonlite::fromJSON(content(response, as = "text"))
3. └─httr::content(response, as = "text")
4. └─base::stopifnot(is.response(x))
── Failure ('test_get_collection.R:23:3'): get_collection errors with invalid set ──
`get_collection("some_nonexistent_set")` threw an error with unexpected message.
Expected match: "The API responded"
Actual message: "is.response(x) is not TRUE"
Backtrace:
▆
1. ├─testthat::expect_error(...) at test_get_collection.R:23:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─kofdata::get_collection("some_nonexistent_set")
7. ├─jsonlite::fromJSON(content(response, as = "text"))
8. └─httr::content(response, as = "text")
9. └─base::stopifnot(is.response(x))
── Failure ('test_get_collection.R:27:3'): get_collection errors with invalid api key ──
`get_collection("set_doesnt_matter", "GandalfTheGray")` threw an error with unexpected message.
Expected match: "Invalid API key"
Actual message: "is.response(x) is not TRUE"
Backtrace:
▆
1. ├─testthat::expect_error(...) at test_get_collection.R:27:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─kofdata::get_collection("set_doesnt_matter", "GandalfTheGray")
7. ├─jsonlite::fromJSON(content(response, as = "text"))
8. └─httr::content(response, as = "text")
9. └─base::stopifnot(is.response(x))
── Error ('test_get_metadata.R:4:3'): get_metadata works ───────────────────────
Error: lexical error: invalid char in json text.
<html> <head><title>502 Bad Ga
(right here) ------^
Backtrace:
▆
1. └─kofdata::get_metadata(...) at test_get_metadata.R:4:3
2. └─jsonlite::fromJSON(content(response, as = "text"))
3. └─jsonlite:::parse_and_simplify(...)
4. └─jsonlite:::parseJSON(txt, bigint_as_char)
5. └─jsonlite:::parse_string(txt, bigint_as_char)
── Error ('test_get_metadata.R:12:3'): get_metadata returns NA for nonexistent keys ──
Error: lexical error: invalid char in json text.
<html> <head><title>502 Bad Ga
(right here) ------^
Backtrace:
▆
1. ├─testthat::expect_true(is.na(get_metadata("nokey")[["nokey"]])) at test_get_metadata.R:12:3
2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─kofdata::get_metadata("nokey")
5. └─jsonlite::fromJSON(content(response, as = "text"))
6. └─jsonlite:::parse_and_simplify(...)
7. └─jsonlite:::parseJSON(txt, bigint_as_char)
8. └─jsonlite:::parse_string(txt, bigint_as_char)
── Error ('test_get_metadata.R:16:3'): get_metadata returns a list ─────────────
Error: lexical error: invalid char in json text.
<html> <head><title>502 Bad Ga
(right here) ------^
Backtrace:
▆
1. ├─testthat::expect_is(...) at test_get_metadata.R:16:3
2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─kofdata::get_metadata("ch.kof.inu.ng08.fx.sector_kof.cm.q_ql_chg_price_sales_p3m.share_eq")
5. └─jsonlite::fromJSON(content(response, as = "text"))
6. └─jsonlite:::parse_and_simplify(...)
7. └─jsonlite:::parseJSON(txt, bigint_as_char)
8. └─jsonlite:::parse_string(txt, bigint_as_char)
── Failure ('test_get_remaining_quota.R:15:3'): get_remaining_quota errors with invalid api key ──
`get_remaining_quota("some_nonexistent_key")` threw an error with unexpected message.
Expected match: "Invalid API key"
Actual message: "is.response(x) is not TRUE"
Backtrace:
▆
1. ├─testthat::expect_error(...) at test_get_remaining_quota.R:15:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─kofdata::get_remaining_quota("some_nonexistent_key")
7. ├─jsonlite::fromJSON(content(response, as = "text"))
8. └─httr::content(response, as = "text")
9. └─base::stopifnot(is.response(x))
── Error ('test_get_time_series.R:4:3'): get_time_series works for public series ──
Error in `content(response, as = "text")`: is.response(x) is not TRUE
Backtrace:
▆
1. └─kofdata::get_time_series("kofbarometer", show_progress = F) at test_get_time_series.R:4:3
2. ├─jsonlite::fromJSON(content(response, as = "text"))
3. └─httr::content(response, as = "text")
4. └─base::stopifnot(is.response(x))
── Failure ('test_get_time_series.R:24:3'): get_time_series errors on invalid key ──
`get_time_series("some_nonexistent_key", show_progress = F)` threw an error with unexpected message.
Expected match: "The API responded"
Actual message: "is.response(x) is not TRUE"
Backtrace:
▆
1. ├─testthat::expect_error(...) at test_get_time_series.R:24:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─kofdata::get_time_series("some_nonexistent_key", show_progress = F)
7. ├─jsonlite::fromJSON(content(response, as = "text"))
8. └─httr::content(response, as = "text")
9. └─base::stopifnot(is.response(x))
── Failure ('test_get_time_series.R:28:3'): get_time_series errors on invalid api key ──
`get_time_series("key_doesnt_matter", "GandalfTheGray", show_progress = F)` threw an error with unexpected message.
Expected match: "Invalid API key"
Actual message: "is.response(x) is not TRUE"
Backtrace:
▆
1. ├─testthat::expect_error(...) at test_get_time_series.R:28:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─kofdata::get_time_series(...)
7. ├─jsonlite::fromJSON(content(response, as = "text"))
8. └─httr::content(response, as = "text")
9. └─base::stopifnot(is.response(x))
── Failure ('test_list_cached_files.R:14:3'): list_cached_files errors with invalid username ──
`list_cached_files("GandalfTheWhite", "myapikey")` threw an error with unexpected message.
Expected match: "Username not found"
Actual message: "is.response(x) is not TRUE"
Backtrace:
▆
1. ├─testthat::expect_error(...) at test_list_cached_files.R:14:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─kofdata::list_cached_files("GandalfTheWhite", "myapikey")
7. └─kofdata:::.get_cdc_files(username, api_key)
8. ├─jsonlite::fromJSON(content(listing, as = "text"))
9. └─httr::content(listing, as = "text")
10. └─base::stopifnot(is.response(x))
── Failure ('test_list_cached_files.R:18:3'): list_cached_files errors with invalid api key ──
`list_cached_files("testuser", "notmyapikey")` threw an error with unexpected message.
Expected match: "Invalid API key"
Actual message: "is.response(x) is not TRUE"
Backtrace:
▆
1. ├─testthat::expect_error(...) at test_list_cached_files.R:18:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─kofdata::list_cached_files("testuser", "notmyapikey")
7. └─kofdata:::.get_cdc_files(username, api_key)
8. ├─jsonlite::fromJSON(content(listing, as = "text"))
9. └─httr::content(listing, as = "text")
10. └─base::stopifnot(is.response(x))
── Error ('test_list_collections.R:4:3'): list_available_collections works ─────
Error in `list_available_collections()`: An error occurred when calling the api:
Status: 502
Content:<html>
<head><title>502 Bad Gateway</title></head>
<body>
<center><h1>502 Bad Gateway</h1></center>
<hr><center>nginx/1.20.1</center>
</body>
</html>
Backtrace:
▆
1. └─kofdata::list_available_collections() at test_list_collections.R:4:3
── Error ('test_list_keys.R:5:3'): list_keys_in_collection works ───────────────
Error in `list_available_collections()`: An error occurred when calling the api:
Status: 502
Content:<html>
<head><title>502 Bad Gateway</title></head>
<body>
<center><h1>502 Bad Gateway</h1></center>
<hr><center>nginx/1.20.1</center>
</body>
</html>
Backtrace:
▆
1. └─kofdata::list_available_collections() at test_list_keys.R:5:3
[ FAIL 14 | WARN 0 | SKIP 6 | PASS 1 ]
Error: Test failures
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.2.1
Check: examples
Result: ERROR
Running examples in ‘kofdata-Ex.R’ failed
The error most likely occurred in:
> ### Name: get_collection
> ### Title: Download Pre-Defined collection
> ### Aliases: get_collection
>
> ### ** Examples
>
> get_collection("ds_kmi_mixed_freq",show_progress = TRUE)
|
| | 0%
|
|======================================================================| 100%
Error in content(response, as = "text") : is.response(x) is not TRUE
Calls: get_collection -> fromJSON -> content -> stopifnot
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-windows-x86_64
Version: 0.2.1
Check: tests
Result: ERROR
Running ‘testthat.R’
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(kofdata)
Loading required package: jsonlite
Loading required package: httr
>
> test_check("kofdata")
[ FAIL 14 | WARN 0 | SKIP 6 | PASS 1 ]
══ Skipped tests (6) ═══════════════════════════════════════════════════════════
• nchar(apikey) == 0 is TRUE (6): 'test_get_collection.R:13:3',
'test_get_remaining_quota.R:6:3', 'test_get_time_series.R:13:3',
'test_list_cached_files.R:6:3', 'test_list_collections.R:20:3',
'test_list_keys.R:22:3'
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test_get_collection.R:4:3'): get_collection works for public collection ──
Error in `content(response, as = "text")`: is.response(x) is not TRUE
Backtrace:
▆
1. └─kofdata::get_collection("baro_vintages_monthly") at test_get_collection.R:4:3
2. ├─jsonlite::fromJSON(content(response, as = "text"))
3. └─httr::content(response, as = "text")
4. └─base::stopifnot(is.response(x))
── Failure ('test_get_collection.R:23:3'): get_collection errors with invalid set ──
`get_collection("some_nonexistent_set")` threw an error with unexpected message.
Expected match: "The API responded"
Actual message: "is.response(x) is not TRUE"
Backtrace:
▆
1. ├─testthat::expect_error(...) at test_get_collection.R:23:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─kofdata::get_collection("some_nonexistent_set")
7. ├─jsonlite::fromJSON(content(response, as = "text"))
8. └─httr::content(response, as = "text")
9. └─base::stopifnot(is.response(x))
── Failure ('test_get_collection.R:27:3'): get_collection errors with invalid api key ──
`get_collection("set_doesnt_matter", "GandalfTheGray")` threw an error with unexpected message.
Expected match: "Invalid API key"
Actual message: "is.response(x) is not TRUE"
Backtrace:
▆
1. ├─testthat::expect_error(...) at test_get_collection.R:27:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─kofdata::get_collection("set_doesnt_matter", "GandalfTheGray")
7. ├─jsonlite::fromJSON(content(response, as = "text"))
8. └─httr::content(response, as = "text")
9. └─base::stopifnot(is.response(x))
── Error ('test_get_metadata.R:4:3'): get_metadata works ───────────────────────
Error: lexical error: invalid char in json text.
<html> <head><title>502 Bad Ga
(right here) ------^
Backtrace:
▆
1. └─kofdata::get_metadata(...) at test_get_metadata.R:4:3
2. └─jsonlite::fromJSON(content(response, as = "text"))
3. └─jsonlite:::parse_and_simplify(...)
4. └─jsonlite:::parseJSON(txt, bigint_as_char)
5. └─jsonlite:::parse_string(txt, bigint_as_char)
── Error ('test_get_metadata.R:12:3'): get_metadata returns NA for nonexistent keys ──
Error: lexical error: invalid char in json text.
<html> <head><title>502 Bad Ga
(right here) ------^
Backtrace:
▆
1. ├─testthat::expect_true(is.na(get_metadata("nokey")[["nokey"]])) at test_get_metadata.R:12:3
2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─kofdata::get_metadata("nokey")
5. └─jsonlite::fromJSON(content(response, as = "text"))
6. └─jsonlite:::parse_and_simplify(...)
7. └─jsonlite:::parseJSON(txt, bigint_as_char)
8. └─jsonlite:::parse_string(txt, bigint_as_char)
── Error ('test_get_metadata.R:16:3'): get_metadata returns a list ─────────────
Error: lexical error: invalid char in json text.
<html> <head><title>502 Bad Ga
(right here) ------^
Backtrace:
▆
1. ├─testthat::expect_is(...) at test_get_metadata.R:16:3
2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─kofdata::get_metadata("ch.kof.inu.ng08.fx.sector_kof.cm.q_ql_chg_price_sales_p3m.share_eq")
5. └─jsonlite::fromJSON(content(response, as = "text"))
6. └─jsonlite:::parse_and_simplify(...)
7. └─jsonlite:::parseJSON(txt, bigint_as_char)
8. └─jsonlite:::parse_string(txt, bigint_as_char)
── Failure ('test_get_remaining_quota.R:15:3'): get_remaining_quota errors with invalid api key ──
`get_remaining_quota("some_nonexistent_key")` threw an error with unexpected message.
Expected match: "Invalid API key"
Actual message: "is.response(x) is not TRUE"
Backtrace:
▆
1. ├─testthat::expect_error(...) at test_get_remaining_quota.R:15:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─kofdata::get_remaining_quota("some_nonexistent_key")
7. ├─jsonlite::fromJSON(content(response, as = "text"))
8. └─httr::content(response, as = "text")
9. └─base::stopifnot(is.response(x))
── Error ('test_get_time_series.R:4:3'): get_time_series works for public series ──
Error in `content(response, as = "text")`: is.response(x) is not TRUE
Backtrace:
▆
1. └─kofdata::get_time_series("kofbarometer", show_progress = F) at test_get_time_series.R:4:3
2. ├─jsonlite::fromJSON(content(response, as = "text"))
3. └─httr::content(response, as = "text")
4. └─base::stopifnot(is.response(x))
── Failure ('test_get_time_series.R:24:3'): get_time_series errors on invalid key ──
`get_time_series("some_nonexistent_key", show_progress = F)` threw an error with unexpected message.
Expected match: "The API responded"
Actual message: "is.response(x) is not TRUE"
Backtrace:
▆
1. ├─testthat::expect_error(...) at test_get_time_series.R:24:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─kofdata::get_time_series("some_nonexistent_key", show_progress = F)
7. ├─jsonlite::fromJSON(content(response, as = "text"))
8. └─httr::content(response, as = "text")
9. └─base::stopifnot(is.response(x))
── Failure ('test_get_time_series.R:28:3'): get_time_series errors on invalid api key ──
`get_time_series("key_doesnt_matter", "GandalfTheGray", show_progress = F)` threw an error with unexpected message.
Expected match: "Invalid API key"
Actual message: "is.response(x) is not TRUE"
Backtrace:
▆
1. ├─testthat::expect_error(...) at test_get_time_series.R:28:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─kofdata::get_time_series(...)
7. ├─jsonlite::fromJSON(content(response, as = "text"))
8. └─httr::content(response, as = "text")
9. └─base::stopifnot(is.response(x))
── Failure ('test_list_cached_files.R:14:3'): list_cached_files errors with invalid username ──
`list_cached_files("GandalfTheWhite", "myapikey")` threw an error with unexpected message.
Expected match: "Username not found"
Actual message: "is.response(x) is not TRUE"
Backtrace:
▆
1. ├─testthat::expect_error(...) at test_list_cached_files.R:14:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─kofdata::list_cached_files("GandalfTheWhite", "myapikey")
7. └─kofdata:::.get_cdc_files(username, api_key)
8. ├─jsonlite::fromJSON(content(listing, as = "text"))
9. └─httr::content(listing, as = "text")
10. └─base::stopifnot(is.response(x))
── Failure ('test_list_cached_files.R:18:3'): list_cached_files errors with invalid api key ──
`list_cached_files("testuser", "notmyapikey")` threw an error with unexpected message.
Expected match: "Invalid API key"
Actual message: "is.response(x) is not TRUE"
Backtrace:
▆
1. ├─testthat::expect_error(...) at test_list_cached_files.R:18:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─kofdata::list_cached_files("testuser", "notmyapikey")
7. └─kofdata:::.get_cdc_files(username, api_key)
8. ├─jsonlite::fromJSON(content(listing, as = "text"))
9. └─httr::content(listing, as = "text")
10. └─base::stopifnot(is.response(x))
── Error ('test_list_collections.R:4:3'): list_available_collections works ─────
Error in `list_available_collections()`: An error occurred when calling the api:
Status: 502
Content:<html>
<head><title>502 Bad Gateway</title></head>
<body>
<center><h1>502 Bad Gateway</h1></center>
<hr><center>nginx/1.20.1</center>
</body>
</html>
Backtrace:
▆
1. └─kofdata::list_available_collections() at test_list_collections.R:4:3
── Error ('test_list_keys.R:5:3'): list_keys_in_collection works ───────────────
Error in `list_available_collections()`: An error occurred when calling the api:
Status: 502
Content:<html>
<head><title>502 Bad Gateway</title></head>
<body>
<center><h1>502 Bad Gateway</h1></center>
<hr><center>nginx/1.20.1</center>
</body>
</html>
Backtrace:
▆
1. └─kofdata::list_available_collections() at test_list_keys.R:5:3
[ FAIL 14 | WARN 0 | SKIP 6 | PASS 1 ]
Error: Test failures
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.2.1
Check: tests
Result: ERROR
Running 'testthat.R' [3s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> library(testthat)
> library(kofdata)
Loading required package: jsonlite
Loading required package: httr
>
> test_check("kofdata")
[ FAIL 14 | WARN 0 | SKIP 6 | PASS 1 ]
══ Skipped tests (6) ═══════════════════════════════════════════════════════════
• nchar(apikey) == 0 is TRUE (6): 'test_get_collection.R:13:3',
'test_get_remaining_quota.R:6:3', 'test_get_time_series.R:13:3',
'test_list_cached_files.R:6:3', 'test_list_collections.R:20:3',
'test_list_keys.R:22:3'
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test_get_collection.R:4:3'): get_collection works for public collection ──
Error in `content(response, as = "text")`: is.response(x) is not TRUE
Backtrace:
▆
1. └─kofdata::get_collection("baro_vintages_monthly") at test_get_collection.R:4:3
2. ├─jsonlite::fromJSON(content(response, as = "text"))
3. └─httr::content(response, as = "text")
4. └─base::stopifnot(is.response(x))
── Failure ('test_get_collection.R:23:3'): get_collection errors with invalid set ──
`get_collection("some_nonexistent_set")` threw an error with unexpected message.
Expected match: "The API responded"
Actual message: "is.response(x) is not TRUE"
Backtrace:
▆
1. ├─testthat::expect_error(...) at test_get_collection.R:23:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─kofdata::get_collection("some_nonexistent_set")
7. ├─jsonlite::fromJSON(content(response, as = "text"))
8. └─httr::content(response, as = "text")
9. └─base::stopifnot(is.response(x))
── Failure ('test_get_collection.R:27:3'): get_collection errors with invalid api key ──
`get_collection("set_doesnt_matter", "GandalfTheGray")` threw an error with unexpected message.
Expected match: "Invalid API key"
Actual message: "is.response(x) is not TRUE"
Backtrace:
▆
1. ├─testthat::expect_error(...) at test_get_collection.R:27:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─kofdata::get_collection("set_doesnt_matter", "GandalfTheGray")
7. ├─jsonlite::fromJSON(content(response, as = "text"))
8. └─httr::content(response, as = "text")
9. └─base::stopifnot(is.response(x))
── Error ('test_get_metadata.R:4:3'): get_metadata works ───────────────────────
Error: lexical error: invalid char in json text.
<html> <head><title>502 Bad Ga
(right here) ------^
Backtrace:
▆
1. └─kofdata::get_metadata(...) at test_get_metadata.R:4:3
2. └─jsonlite::fromJSON(content(response, as = "text"))
3. └─jsonlite:::parse_and_simplify(...)
4. └─jsonlite:::parseJSON(txt, bigint_as_char)
5. └─jsonlite:::parse_string(txt, bigint_as_char)
── Error ('test_get_metadata.R:12:3'): get_metadata returns NA for nonexistent keys ──
Error: lexical error: invalid char in json text.
<html> <head><title>502 Bad Ga
(right here) ------^
Backtrace:
▆
1. ├─testthat::expect_true(is.na(get_metadata("nokey")[["nokey"]])) at test_get_metadata.R:12:3
2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─kofdata::get_metadata("nokey")
5. └─jsonlite::fromJSON(content(response, as = "text"))
6. └─jsonlite:::parse_and_simplify(...)
7. └─jsonlite:::parseJSON(txt, bigint_as_char)
8. └─jsonlite:::parse_string(txt, bigint_as_char)
── Error ('test_get_metadata.R:16:3'): get_metadata returns a list ─────────────
Error: lexical error: invalid char in json text.
<html> <head><title>502 Bad Ga
(right here) ------^
Backtrace:
▆
1. ├─testthat::expect_is(...) at test_get_metadata.R:16:3
2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─kofdata::get_metadata("ch.kof.inu.ng08.fx.sector_kof.cm.q_ql_chg_price_sales_p3m.share_eq")
5. └─jsonlite::fromJSON(content(response, as = "text"))
6. └─jsonlite:::parse_and_simplify(...)
7. └─jsonlite:::parseJSON(txt, bigint_as_char)
8. └─jsonlite:::parse_string(txt, bigint_as_char)
── Failure ('test_get_remaining_quota.R:15:3'): get_remaining_quota errors with invalid api key ──
`get_remaining_quota("some_nonexistent_key")` threw an error with unexpected message.
Expected match: "Invalid API key"
Actual message: "is.response(x) is not TRUE"
Backtrace:
▆
1. ├─testthat::expect_error(...) at test_get_remaining_quota.R:15:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─kofdata::get_remaining_quota("some_nonexistent_key")
7. ├─jsonlite::fromJSON(content(response, as = "text"))
8. └─httr::content(response, as = "text")
9. └─base::stopifnot(is.response(x))
── Error ('test_get_time_series.R:4:3'): get_time_series works for public series ──
Error in `content(response, as = "text")`: is.response(x) is not TRUE
Backtrace:
▆
1. └─kofdata::get_time_series("kofbarometer", show_progress = F) at test_get_time_series.R:4:3
2. ├─jsonlite::fromJSON(content(response, as = "text"))
3. └─httr::content(response, as = "text")
4. └─base::stopifnot(is.response(x))
── Failure ('test_get_time_series.R:24:3'): get_time_series errors on invalid key ──
`get_time_series("some_nonexistent_key", show_progress = F)` threw an error with unexpected message.
Expected match: "The API responded"
Actual message: "is.response(x) is not TRUE"
Backtrace:
▆
1. ├─testthat::expect_error(...) at test_get_time_series.R:24:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─kofdata::get_time_series("some_nonexistent_key", show_progress = F)
7. ├─jsonlite::fromJSON(content(response, as = "text"))
8. └─httr::content(response, as = "text")
9. └─base::stopifnot(is.response(x))
── Failure ('test_get_time_series.R:28:3'): get_time_series errors on invalid api key ──
`get_time_series("key_doesnt_matter", "GandalfTheGray", show_progress = F)` threw an error with unexpected message.
Expected match: "Invalid API key"
Actual message: "is.response(x) is not TRUE"
Backtrace:
▆
1. ├─testthat::expect_error(...) at test_get_time_series.R:28:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─kofdata::get_time_series(...)
7. ├─jsonlite::fromJSON(content(response, as = "text"))
8. └─httr::content(response, as = "text")
9. └─base::stopifnot(is.response(x))
── Failure ('test_list_cached_files.R:14:3'): list_cached_files errors with invalid username ──
`list_cached_files("GandalfTheWhite", "myapikey")` threw an error with unexpected message.
Expected match: "Username not found"
Actual message: "is.response(x) is not TRUE"
Backtrace:
▆
1. ├─testthat::expect_error(...) at test_list_cached_files.R:14:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─kofdata::list_cached_files("GandalfTheWhite", "myapikey")
7. └─kofdata:::.get_cdc_files(username, api_key)
8. ├─jsonlite::fromJSON(content(listing, as = "text"))
9. └─httr::content(listing, as = "text")
10. └─base::stopifnot(is.response(x))
── Failure ('test_list_cached_files.R:18:3'): list_cached_files errors with invalid api key ──
`list_cached_files("testuser", "notmyapikey")` threw an error with unexpected message.
Expected match: "Invalid API key"
Actual message: "is.response(x) is not TRUE"
Backtrace:
▆
1. ├─testthat::expect_error(...) at test_list_cached_files.R:18:3
2. │ └─testthat:::quasi_capture(...)
3. │ ├─testthat (local) .capture(...)
4. │ │ └─base::withCallingHandlers(...)
5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
6. └─kofdata::list_cached_files("testuser", "notmyapikey")
7. └─kofdata:::.get_cdc_files(username, api_key)
8. ├─jsonlite::fromJSON(content(listing, as = "text"))
9. └─httr::content(listing, as = "text")
10. └─base::stopifnot(is.response(x))
── Error ('test_list_collections.R:4:3'): list_available_collections works ─────
Error in `list_available_collections()`: An error occurred when calling the api:
Status: 502
Content:<html>
<head><title>502 Bad Gateway</title></head>
<body>
<center><h1>502 Bad Gateway</h1></center>
<hr><center>nginx/1.20.1</center>
</body>
</html>
Backtrace:
▆
1. └─kofdata::list_available_collections() at test_list_collections.R:4:3
── Error ('test_list_keys.R:5:3'): list_keys_in_collection works ───────────────
Error in `list_available_collections()`: An error occurred when calling the api:
Status: 502
Content:<html>
<head><title>502 Bad Gateway</title></head>
<body>
<center><h1>502 Bad Gateway</h1></center>
<hr><center>nginx/1.20.1</center>
</body>
</html>
Backtrace:
▆
1. └─kofdata::list_available_collections() at test_list_keys.R:5:3
[ FAIL 14 | WARN 0 | SKIP 6 | PASS 1 ]
Error: Test failures
Execution halted
Flavor: r-devel-windows-x86_64