Last updated on 2025-08-30 01:50:03 CEST.
Package | ERROR | OK |
---|---|---|
rnrfa | 1 | 12 |
winfapReader | 13 |
Current CRAN status: ERROR: 1, OK: 12
Version: 2.1.0.6
Check: tests
Result: ERROR
Running ‘testthat.R’ [23s/47s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library("testthat")
> library("rnrfa")
> # library("lintr")
>
> api_unavailable <- function(){
+ resp1 <- httr::GET(url = "https://nrfaapps.ceh.ac.uk/nrfa/ws/time-series",
+ query = list(format = "json-object", station = 39001,`data-type` = "gdf"),
+ httr::user_agent("https://github.com/ilapros/rnrfa"))
+ resp2 <- httr::GET(url = "https://nrfaapps.ceh.ac.uk/nrfa/ws/time-series",
+ query = list(format = "json-object", station = 39001,`data-type` = "cmr"),
+ httr::user_agent("https://github.com/ilapros/rnrfa"))
+ # if any of the two streams is not working skip tests
+ (httr::http_error(resp1) | httr::http_error(resp2))
+ }
>
> # skip_if_no_api() <- function() {
> # if (api_unavailable()) {
> # skip("API not available")
> # }
> # }
>
> if (!curl::has_internet()) {
+ message("No internet, cannot run tests")
+ }else {
+ test_check("rnrfa")
+ }
[ FAIL 1 | WARN 0 | SKIP 0 | PASS 66 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Failure ('test-get_ts.R:69:3'): get_ts gdf multi works ──────────────────────
as.numeric(flow[[3]][1]) not equal to 1.262.
1/1 mismatches
[1] 0.588 - 1.26 == -0.674
[ FAIL 1 | WARN 0 | SKIP 0 | PASS 66 ]
Error: Test failures
Execution halted
Flavor: r-release-linux-x86_64
Current CRAN status: OK: 13