Running ‘testthat.R’ [25s/88s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library("testthat")
  > test_check("gie")
  Loading required package: gie
  [ FAIL 9 | WARN 0 | SKIP 5 | PASS 18 ]
  
  ══ Skipped tests (5) ═══════════════════════════════════════════════════════════
  • On CRAN (5): 'test-datadownloads.R:159:3', 'test-datadownloads.R:176:3',
    'test-datadownloads.R:196:3', 'test-datadownloads.R:215:3',
    'test-datadownloads.R:233:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-datadownloads.R:10:5'): download single country data ───────────
  Error in `httr::content(., as = "parsed")`: is.response(x) is not TRUE
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test-datadownloads.R:7:3
   2. │ └─cassette$call_block(...)
   3. ├─gie::gie_load(country = "DE", date = "2022-05-01") at test-datadownloads.R:10:5
   4. │ └─gie:::getrequest_general(...)
   5. │   └─raw_request %>% httr::content(as = "parsed")
   6. └─httr::content(., as = "parsed")
   7.   └─base::stopifnot(is.response(x))
  ── Error ('test-datadownloads.R:29:5'): download single country data with from/to ──
  Error in `httr::content(., as = "parsed")`: is.response(x) is not TRUE
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test-datadownloads.R:26:3
   2. │ └─cassette$call_block(...)
   3. ├─gie::gie_load(country = "AT", from = "2022-02-01", to = "2022-02-15") at test-datadownloads.R:29:5
   4. │ └─gie:::getrequest_general(...)
   5. │   └─raw_request %>% httr::content(as = "parsed")
   6. └─httr::content(., as = "parsed")
   7.   └─base::stopifnot(is.response(x))
  ── Error ('test-datadownloads.R:49:5'): check that gie_batchload works with multiple countries ──
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `map(.x, .f, ...)`: ℹ In index: 1.
  Caused by error in `httr::content()`:
  ! is.response(x) is not TRUE
  Backtrace:
       ▆
    1. ├─vcr::use_cassette(...) at test-datadownloads.R:46:3
    2. │ └─cassette$call_block(...)
    3. ├─gie::gie_batchload(countries = c("DE", "AT"), date = "2022-05-01") at test-datadownloads.R:49:5
    4. │ └─purrr::map_dfr(...)
    5. │   └─purrr::map(.x, .f, ...)
    6. │     └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
    7. │       ├─purrr:::with_indexed_errors(...)
    8. │       │ └─base::withCallingHandlers(...)
    9. │       ├─purrr:::call_with_cleanup(...)
   10. │       └─gie (local) .f(.x[[i]], ...)
   11. │         └─gie::gie_load(...)
   12. │           └─gie:::getrequest_general(...)
   13. │             └─raw_request %>% httr::content(as = "parsed")
   14. ├─httr::content(., as = "parsed")
   15. │ └─base::stopifnot(is.response(x))
   16. │   └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
   17. └─purrr (local) `<fn>`(`<smplErrr>`)
   18.   └─cli::cli_abort(...)
   19.     └─rlang::abort(...)
  ── Error ('test-datadownloads.R:68:5'): check that gie_load works with company & facilities ──
  Error in `httr::content(., as = "parsed")`: is.response(x) is not TRUE
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test-datadownloads.R:65:3
   2. │ └─cassette$call_block(...)
   3. ├─gie::gie_load(...) at test-datadownloads.R:68:5
   4. │ └─gie:::getrequest_general(...)
   5. │   └─raw_request %>% httr::content(as = "parsed")
   6. └─httr::content(., as = "parsed")
   7.   └─base::stopifnot(is.response(x))
  ── Error ('test-datadownloads.R:89:5'): check that gie_load works with company ──
  Error in `httr::content(., as = "parsed")`: is.response(x) is not TRUE
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test-datadownloads.R:86:3
   2. │ └─cassette$call_block(...)
   3. ├─gie::gie_load(country = c("DE"), date = "2022-05-01", company = "21X000000001160J") at test-datadownloads.R:89:5
   4. │ └─gie:::getrequest_general(...)
   5. │   └─raw_request %>% httr::content(as = "parsed")
   6. └─httr::content(., as = "parsed")
   7.   └─base::stopifnot(is.response(x))
  ── Error ('test-datadownloads.R:109:5'): check that gie_batchload works with companies ──
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `map2(.x, .y, .f, ...)`: ℹ In index: 1.
  Caused by error in `httr::content()`:
  ! is.response(x) is not TRUE
  Backtrace:
       ▆
    1. ├─vcr::use_cassette(...) at test-datadownloads.R:106:3
    2. │ └─cassette$call_block(...)
    3. ├─gie::gie_batchload(...) at test-datadownloads.R:109:5
    4. │ └─purrr::map2_dfr(...)
    5. │   └─purrr::map2(.x, .y, .f, ...)
    6. │     └─purrr:::map2_("list", .x, .y, .f, ..., .progress = .progress)
    7. │       ├─purrr:::with_indexed_errors(...)
    8. │       │ └─base::withCallingHandlers(...)
    9. │       ├─purrr:::call_with_cleanup(...)
   10. │       └─gie (local) .f(.x[[i]], .y[[i]], ...)
   11. │         └─gie::gie_load(...)
   12. │           └─gie:::getrequest_general(...)
   13. │             └─raw_request %>% httr::content(as = "parsed")
   14. ├─httr::content(., as = "parsed")
   15. │ └─base::stopifnot(is.response(x))
   16. │   └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
   17. └─purrr (local) `<fn>`(`<smplErrr>`)
   18.   └─cli::cli_abort(...)
   19.     └─rlang::abort(...)
  ── Error ('test-datadownloads.R:130:5'): check that gie_batchload works with company and facilities ──
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `pmap(.l, .f, ...)`: ℹ In index: 1.
  Caused by error in `httr::content()`:
  ! is.response(x) is not TRUE
  Backtrace:
       ▆
    1. ├─vcr::use_cassette(...) at test-datadownloads.R:127:3
    2. │ └─cassette$call_block(...)
    3. ├─gie::gie_batchload(...) at test-datadownloads.R:130:5
    4. │ └─purrr::pmap_dfr(...)
    5. │   └─purrr::pmap(.l, .f, ...)
    6. │     └─purrr:::pmap_("list", .l, .f, ..., .progress = .progress)
    7. │       ├─purrr:::with_indexed_errors(...)
    8. │       │ └─base::withCallingHandlers(...)
    9. │       ├─purrr:::call_with_cleanup(...)
   10. │       └─gie (local) .f(...)
   11. │         └─gie::gie_load(...)
   12. │           └─gie:::getrequest_general(...)
   13. │             └─raw_request %>% httr::content(as = "parsed")
   14. ├─httr::content(., as = "parsed")
   15. │ └─base::stopifnot(is.response(x))
   16. │   └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
   17. └─purrr (local) `<fn>`(`<smplErrr>`)
   18.   └─cli::cli_abort(...)
   19.     └─rlang::abort(...)
  ── Error ('test-regular-errors.R:28:3'): warning pops up if date, from and to are set (error 1) ──
  Error in `httr::content(., as = "parsed")`: is.response(x) is not TRUE
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test-regular-errors.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. ├─gie::gie_load(...)
    7. │ └─gie:::getrequest_general(...)
    8. │   └─raw_request %>% httr::content(as = "parsed")
    9. └─httr::content(., as = "parsed")
   10.   └─base::stopifnot(is.response(x))
  ── Error ('test-regular-errors.R:40:3'): warning pops up if date, from and to are set (error 2) ──
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `map(.x, .f, ...)`: ℹ In index: 1.
  Caused by error in `httr::content()`:
  ! is.response(x) is not TRUE
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test-regular-errors.R:40: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. ├─gie::gie_batchload(...)
    7. │ └─purrr::map_dfr(...)
    8. │   └─purrr::map(.x, .f, ...)
    9. │     └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
   10. │       ├─purrr:::with_indexed_errors(...)
   11. │       │ └─base::withCallingHandlers(...)
   12. │       ├─purrr:::call_with_cleanup(...)
   13. │       └─gie (local) .f(.x[[i]], ...)
   14. │         └─gie::gie_load(...)
   15. │           └─gie:::getrequest_general(...)
   16. │             └─raw_request %>% httr::content(as = "parsed")
   17. ├─httr::content(., as = "parsed")
   18. │ └─base::stopifnot(is.response(x))
   19. │   └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
   20. └─purrr (local) `<fn>`(`<smplErrr>`)
   21.   └─cli::cli_abort(...)
   22.     └─rlang::abort(...)
  
  [ FAIL 9 | WARN 0 | SKIP 5 | PASS 18 ]
  Error: Test failures
  Execution halted