Running 'testthat.R' [10s]
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:
       x
    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:
       x
    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