Running ‘testthat.R’ [6s/15s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(czechrates)
  > 
  > test_check("czechrates")
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 26 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-cnbfxrate.R:16'): data format ──────────────────────────────────
  Error in `if (length(file) == 0 || (n_max == 0 & identical(col_names, FALSE))) {
      return(tibble::tibble())
  }`: missing value where TRUE/FALSE needed
  Backtrace:
       ▆
    1. ├─testthat::expect_true(is.data.frame(cnbfxrate())) at test-cnbfxrate.R:16:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::is.data.frame(cnbfxrate())
    5. ├─czechrates::cnbfxrate()
    6. │ ├─... %>% ...
    7. │ └─base::lapply(roky, dnl_fx)
    8. │   └─czechrates (local) FUN(X[[i]], ...)
    9. │     ├─... %>% dplyr::select(-name)
   10. │     └─readr::read_delim(...)
   11. │       └─vroom::vroom(...)
   12. ├─dplyr::relocate(., date_valid, currency_code, amount, rate)
   13. ├─dplyr::filter(., date_valid %in% date)
   14. ├─dplyr::bind_rows(.)
   15. │ └─rlang::list2(...)
   16. ├─dplyr::select(., -name)
   17. ├─tidyr::pivot_longer(., cols = starts_with("X"), values_to = "rate")
   18. └─dplyr::rename(., date_valid = X1)
  ── Error ('test-cnbfxrate.R:30'): known values ─────────────────────────────────
  Error in `if (length(file) == 0 || (n_max == 0 & identical(col_names, FALSE))) {
      return(tibble::tibble())
  }`: missing value where TRUE/FALSE needed
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-cnbfxrate.R:30:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─czechrates::cnbfxrate(as.Date("2020-04-01"), "EUR")
    5. │ ├─... %>% ...
    6. │ └─base::lapply(roky, dnl_fx)
    7. │   └─czechrates (local) FUN(X[[i]], ...)
    8. │     ├─... %>% dplyr::select(-name)
    9. │     └─readr::read_delim(...)
   10. │       └─vroom::vroom(...)
   11. ├─dplyr::relocate(., date_valid, currency_code, amount, rate)
   12. ├─dplyr::filter(., date_valid %in% date)
   13. ├─dplyr::bind_rows(.)
   14. │ └─rlang::list2(...)
   15. ├─dplyr::select(., -name)
   16. ├─tidyr::pivot_longer(., cols = starts_with("X"), values_to = "rate")
   17. └─dplyr::rename(., date_valid = X1)
  
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 26 ]
  Error: Test failures
  Execution halted